88 
. 
S38388328388838 


Pet ee eee eee ee er er ee er Oe ee Oe ee ee Bd Be Be Be se 2 ee eed 


ha be 

eh ke A 
AL be MA 
bt at 
ba kL ka kk 
te Aa 
ba kk wa kk 


eecaeo cae 
ca cc ca 
ca ca coe 
<a ecacc 
cc aaca 
ca [odie a 
cc ar 
aQoeacaacacacaacaca 
@oeaacacaacacacacacae 
usu ha WU 
dus uu 
Lk Ads ly lu 
sus taut us 
lu gl uu 
duu tuts usu 
tas ua uous 


Cd usu usu 
UW sd dd a a a ta 
dO dd sd ds as a as 


ee ee 
ed ee a a 


entiene es 
ececcac ca mn MWnnw 
eaccac ca mw NWMWMnM 
ca ca ca nw nw nn 
ca cc ca own nw “ww 
ca ceca nn unm wn 
ca ecccaec mw nw nn 
ca ca nw wwm “wn 
ca ca nw nn nw 
aQaaoaacaacaacacaacacaca MMW mn 
q@aaacacacacaacacacacac MMMM mm 
oooooocco°o0o 
ooocooc;“oo0o[0eo 
oo oo tes a 
oo oo te wees 
oo oo Nc a et Sy ag ed a Od te 
oo oo SL et at a ee et ee 
oo oo ote oe 
"50000000007" pars = 
SS8S8S8S88S8S88S 
own MWWnw ad 
ww MMMWM aa 
wm nw nw aw 
wn mw mw aa 
nn ww nn a od 
nn ww ad 
nn nmwn = | 
ad ad 
MMWwM ced ed ad ed od) od od od od od od od 
MMMM Bubehad abadadabab ahadulad al 


**F ILE**1D**SORINTERF 
Ss 
Ss 
Ss 
Ss 
SSSSS 
SSSSS 


0 9 
SORSINTERFACE 16-Sep-1984 00:24:14 AX-11 Bliss-32 V4.0-74 Pp 1 sO 
12-808 -1 3b 99: 0:44 anatsor sat SORINTERF BS2:1 _ (1) vO 
MODULE SORSINTERFACE ( 
erete IDENT = 'V04-000')= ! File: SORINTERF.B32 Edit: PDG3059 
MACRO IDENT = 'V03-059" 4%; 


SRR RARE EAA EAE ERAERE REE EAA E AERA AERA AAR EEEREREAEE 
' 


ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 


; SOFTWARE IS FURNISHED UNDER A LICENSE 
'* ONLY IN ACCORDANCE WITH T R F 

} SION OF THE ABOVE COPYRIGHT NOTICE. T 
'* COPIES THEREOF MAY NOT BE PROVIDED OR OTHE 
!® OTHER PERSON. NO TITLE TO AND OWNERSHIP O 


& 
® 
® 
* 
® 
® 
® 
& 
ar 
® 
ie TRANSFERRED. . 
+ 
® 
® 
* 
® 
® 
® 
* 
® 
* 


i THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
* oeRPOhaT ibn NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


ie DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
!® SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


'@ 
Le A RARER EEEE ERE EEE AREA AAA REEE 
1 


FACILITY: VAX=11 SORT/MERGE 
ABSTRACT: 
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3 3 § 101 1 LIBRARY ‘SYSSLIBRARY:STARLET'; : 
3 : ! ; } REQUIRE ‘SRCS$:COM'; 3 
; 105 175 1 SIF NOT HOSTILE XTHEN : 
: 10 58 : ce SOR_CONTEXT REF BLOCK ! Defaul inf 
; J : ; ! Default sort context info ; 
; 108 U 178 1 ZELSE PF 
: 159 u 15 : BIN oR CONTEXT UPLIT(0) d itabl 
; J = : ! Longword not writable ; 
s 713 158 1 SFI . ; 
; 11§ 180 1 : 
: 1 18] 1 LITERAL 3 
; 6116 1 ¢ 1 REG_INI_CTX = 3; : 
3 313 1 1 LINKAGE : 
3 118 184 1 AND_RETURN_R1 = CALL(;REGISTER=1) ; 
“ey 185 1 JSB-INI_CTR = J B(REG]STER=REG_INI _CTX) : 
3s 318 1 $ 1 NOPRESERVE (0,1 4,5) : 
; 119 187 1 NOTUSED(6,7,6,9, 105 ; 
: 120 91 8 GLOBAL (CTX=COM_REG_CTX); : 
, ¥ ¢ 0190 1 FORWARD ROUTINE : 
a 0191 1 HAN ' Handle exception conditions : 
> 124 O136 1 SORSSERROR, ! Issue error diagnostic 3 
3 145 0193 1 INI _CTX: JSB_INI_CTX NOVALUE, ! Initialize context area : 
: 16 ba 1 SORSSALLOCATE: CAL_CTXREG, ' Allocate storage 3 
. Ser 195 1 SORSSDEALLOCATE: CAL_CTXREG NOVALUE, ! Deallocate storage : 
: 128 8199 1 ORSBEGIN ° ! Initialize the sort : 
: 129 197 1 SORSSORT_MERGE ! Sort or merge the data 3 
: 130 0198 #1 SORSRELEASE_REC, ! Release record to sort/merge : 
3: 131 tad 1 SRETURN_REC, ' Return record from sort/merge : 
ior ; 00 1 T_END_SORT: JSB_INI_CTX, ' Asynchronous termination 3 
3; (1 0201 1 SORSEND- SORT ! Termination routine : 
3: (134 0 4 1 SORSBEGIN_MERGE, ! Initialize the merge ; 
3 135 0205 1 ZIF NOT HOSTILE XTHEN ; 
2 3 8 04 1 CLOSE_FILE: CAL_CTXREG NOVALUE, ' Close a file : 
: 137 05 1 FREE _BpBS: CAL_CTXREG NOVALUE, ! Free storage for List of DDBs : 
: «138 8 06 1 MRG_OUTPUT: CAL_CTXREG NOVALUE, ! Merge into the output file i 
: «139 07 1 SORSPASS_FILES: AND_RETURN_R1, ' Pass file information to sort 

: 140 0208 1 SORSSPEC_FILE, ! Process the specification file 

3; «(141 8 09 1 ZF I 

3 146 19 ! SORSSTAT; ! Get a statistic 

3 61446 6 \¢ 1 LITERAL 

; 132 8 1? ! SOR_K_END_AST = TRUE; ! Indicates SORSEND_SORT should work with ASTs 

: 149 Lt 0215 1 ZIF HOSTILE 

; 148 U 1 1 XTHEN 

: 149 U 021 1 CRO 

s 190 U 18 1 LIBSGET_VM = ester ert VA %, 

3; 6151 U 021 1 LIBSFREE_VM = SORSLIBSFREE_VM %, 

: 13 U 0 1 LIBSSIGNAL = SORSL 18551 6NAC i, 

.. 7 U 1 1 LIBSAST_IN_PROG = SORSLIBSAST_IN_PROG 2%, 

; 138 U § q SYSSCLRAST”-= SORSSYSSCLRAST 2° 

3 155 U 1 SYSSDCLAST = SORSSYSSDCLAST 2%, 

; 156 U 4 1 SYSSUNWIND = SORSSYSSUNWIND 2, 

3 H+ 44 U 2 ' uF I SYSSADJWSL = SORSSYSSADJWSL 2%; 
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FIRSTPARAMETER_ 
Define the first parameter, for use by PRESENT_ and NULL_. 


! 

! 

' 

1 

: 

} PRESENT 
' Test for a parameter present. 

' 

: LL 

Test for a parameter present, and whether it equals zero. 


CRO 
PRESENT (xX) = 


GaSe AP AOS oe ROO 
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Be ss a a ss 4 5 —) 2 2d 2 > 


nos 
4 
m 0268 BUILTIN ACTUAL COUNT 
M 0269 LITERA 2 Tex FIRSTPARAMETER, _) /SUPVAL; 
% 70 ACTUAL COURT () GEQU 
a i NULL_(O = 
Mm 027 IN 
M 0274 BUILTIN NULLPARAME TE 
Mm 0275 LIT 2 TOF ThstPaRAneTER, _) /RUPVAL; 
Ns i: NULLPARARETE R(Y 
m 0278 FIRSTPARAMETER_( 
79 MACRO FIRS TPARAMETER__ = X ZQUOTE % %; 
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s 2} 0 1 ! Macro to return status from the user-visible routines 

s @i 1 1 ! Note that all successful returns from the user-visible routines 

3 ; ¢ ! } (except END_SORT and STAT) should use this macro, passing SS$_NORMAL. 

: i$ 4 1 MACRO 

3 0 M 2 RETURN__(X) = 

; 1 M § 1 EGIN 

; § M 1 IF an K_END_AST 2THEN CTX__(O] = .CTX__CO] AND NOT %B'1"; 2FI 

; 4 § 1 MIF ZIDENTICAC(X, SS$_NORMACT 

: 4 ” 1 XZ THEN 

; 5 i 0 1 CTXCCOM_FLO_ABORT] = FALSE; 

: § i 4) 1 RETURN .CTXECOM_WORSTJ 

; i § 1 ZELS 

3 : : t ! : RETURN X 

; : 32 ! END %; 

3 § 3 : } Macro to get the address of common context information. 

3 0299 1 MACRO 

; 5 m 0300 1 CONTEXT_(CONTEXT,ERR) = 

: M0301 1 GLOBAL REGISTER 

3 2s ial 8 8 1 CTX = COM_REG_CTX: REF CTX_BLOCK; 

; 8 4 3 1 LOCAL 

; Rail V R VOLATILE; ! Address of context longwor 
24 . 8 BS ! auart REF VECTORC1) VOLATILE; ! Add f l d 

: 4] | 0306 1 COND_HAND(CTX__); 

; 26 0307 1 BEGIN 

; 26 0308 1 BUILTIN 

3 244 m 0309 1 TESTBITSS; 

3 245 ™ 0310 1 REGISTER 

$ 28 : bai) ' P__ = REG_LINI_CTX: REF VECTORC1]; ! Address of context pointer 

; 248 ial 0318 1 IS_END_SORT = NOT ZNULL(ERR) AND ERR+0 ZQUOTE % 

; r4 . baie ! - IS_STAT = NOT ZDECLARED(COM_FLO_ABORT) ZQUOTE %; 

ae +) M b318 1 ! Get the address to store the address of the context area. 

3 2§ m0317 1 ! If the context parameter is missing, use the default context pointer. 

> = m0 18 1 ! If present and non-zero, use it. 

3 22 a 0 \} ! If present and zero, use the default context pointer. 

s 236 i. 6 1 3 ZIF NOT HOSTILE 

s éor m 03 $ 1 XTHEN 

; 258 il 1 IF NOT PRESENT (CONTEXT) THEN P__ = SOR_CONTEXT 

; 259 M 4 1 ELIF (P__ = .CONTEXT) NEQ 0 THER O 

3; 260 ial , ELSE P__ = SOR_CONTEXT; 

: 261 M $ 1 ZELSE 

3 66 " 1 P__ = .CONTEXT; 

; 26 M 3 4 ZF I 

3; 264 i 1 Z1F NOT IS_STAT 

: 265 M 0 1 XTHEN 

; 06 M4 2 crx, = P_ [Ol 

2 ot os 

3 $? a 4 1 ! Test and set the synchronization bit to see whether any other 

5 4! : 2 ! } routines for this sort/merge are currently active. 
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; 7 ™ 0337 1 %IF SOR_K_END_AST AND NOT IS_STAT 

; mi 1 LTHEN 

: 27 i 1 IF_TESTBITSS(P__C0J) 

; 275 4 1 THEN 

: 26 m 0341 1 ZIF_1S_END_SORT 

5 7 i 1 ZTHEN 

; 8 As 43 revste UR AST_END_SORT(P__[03) 

: 9 A 45 ! Only END_SORT and STAT may be called asynchronously. 
; : M4 H ra RETURN SOR$_SORT_ON 

: M0349 1 MFI : 

; 5 i] 0 1 ' 

3 8 1 ! Fetch the address of the context area 

: 288 m0 36 1 if (CTX = .P__COJ AND NOT %B'1") EQL 0 

; 289 m 0354 #1 THE 

: 290 m 0355 1 Z1IF X%NULL(ERR) 

BR Bee aes 

; 3 m0 28 1 

3 Be : 8 23 : Allocate and initialize the context area 
> 296 m 0361 1 iNI_CTX(P__CO}); 

RHE res 

: 99 " 5 64 BEGIN 

: 4 . 0 06 : ; This routine does not initialize the context area 
; 08 m 0368 1 ZIF IS_END SORT X%THEN 

; 0% fs $9 CTR__(0) = 0; 

; 06 m 0371 1 ZIF 1S_STAT OR IS_END_SORT %THEN 

: 308 m O3r8 ar 

: 309 4 0 7% 1 RETURN__ (ERR) 

BD RB Ks 

>: 31 m 0377 1 FI; 

: ig ™ 0378 1 ! : 
3; «64314 0379 1 ! Test and set a bit indicating that this sori is only fit 
$ 1? : 9 : to be aborted. 

; 13 6 ; 1 ZIF IS_END SORT XTHEN 

; 18 4 1 COM _FLO_ABORT) = TRUE 

; 19 " 4 MELSE XIF IS_STAT XTHEN 

: 321 4 1 XELSE 

; ¢ 4 f If TESTBITSS(CTXCCOM_FLO_ABORT) 

: 324 m 0389 1 RETURN__(SOR$_SORT_ON) 

3 5 4 1 ZF1 FI; 

; g m 0391 1 CTXCCOM. WORST) = SS$_NORMAL; 

; i 35 ' END 2%; 
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: ¢ } } This macro causes a checkpoint to be taken when needed 

: 1 MACRO 

3 & 1 CHECKPOINT COUNTDOWN( DUMMY ) = 

3 "0398 1 LIF FUR. K_CHECKPOINT 

8% i 

; 1 BEGIN NOT ZDECLARED(RO) XTHEN BUILTIN RO; FI 

; 4 A ‘ ¢ 1 (CTXCCOM, COUNTDOWN] = .CTXCCOM_COUNTDOWN] - 1) LSS 0 
: H : : : e RO = SORSSCHECKPOINT(); ! This routine is really NOVALUE 
: 341 M4 406 1 TELSE 

3 ¢ ™ 0407 1 

; 34 408 1 “FI %; 
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: 1 onreeem, ROUTINE 

3 410 1 gon SKE CAL_CTXREG, ! Process key 

; 164 SORES TRE sUNiT: CAL_CTXREG, ! Allocate and initialize tree 
3 3 12 $1 SORSSTREE-INSERT: JSB_INSERT ! Insert record in sort tree 

: 34 131 SORSSTREE-EXTRACT: JSB-EXTRACT, i Get a record from sort tree 

3 0 14 4 pORSSuRe ALQ: CAL_CTXREG, ! Calculate work file allocation 
3 1 U 04615 1 SIF FUN_K_CHECKPOINT ZTHEN 

$ § U 1 : “FI SORSSCHECKPOINT : CAL_CTXREG, ! Take a checkpoint 

3 4 L £18 1 ZIF NOT HOSTILE 

; 5 19 1 THEN 

; § Y 1 SORSSSPEC_KEY_SUB: CAL_CTXREG, ! Process keys from spec file 

3 1 SORSSSPEC "FILE: CAL-CTXREG, i Process specification text 

3 8 § 1 SORSSOPEN? CAL_CTXREG, i Open input and output files 

3 9 1 COL SINIT, i Initialize fo DEE ROLY sequence 
3 4 1 SORSSDECM: CAL_CTXREG, i Initialize to DEC 

3 1 > SORSSEBCDIC: CAL_CTXREG, i Initialize to EBCBI 

; ¢ $ 1 10 i geting . base col lontnn sequence 
3 1 fot LSPA i Specify character 

; 0428 #1 EOLLSTIE BREAK. i indicare’ t ororeaning 

; 365 0429 1 COLLSRESOLT i Convert result to e 

; 366 0430 1 STREA PP ADDRESSING_ MODE (GENERAL), ! Append strings 

3 7 0431 1 SORSSCOPY “FILE NAME : CAL_CTXREG NOVALUE, 

; 368 04 ; 1 2FI 

H 04 1 SORSSFREE FILE_NAME:CAL_CTXREG NOVALUE, 

3 70 0434 1 LIBSGET_VA: ADDRESSING _MODE (GENERAL), ' Get virtual memory 

s 371 oh 1 CIBSEREE VM: ADDRESSING_MODE (GENERAL), ! Free virtual memory 

: 72 0436 1 LIBSSIGNAL: ADDRESSING_MODE (GENERAL) ; ! Signal errors 
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; 1 i 1 ROUTINE COND_HAND : 
: ud: 5 1 SIGVEC: REF BLOCKE BYTE, ! Signal vector : 
; S7 40 1 MCHVEC: REF BLOCKL,BYTEJ, ' Mechanism vector 3 
: f red ! ENAVEC: REF VECTOR ! Enable vector : 
; = PY 
BE ie 7 
: 8 44s | FUNCTIONAL DESCRIPTION: : 
; 23 1 Condition handler for errors occurring during sort or merge. ; 
3 5 ret 1! This routine checks whether errors should be returned or signalled. : 
3 449 1! If errors are to be signalled, we vestgnet the error. é 
; 3S $0 1! If error statuses are to be returned then : 
; 388 451 1! the error is only a warning or informational, just continue ; 
; +4 pres : } Otherwise, we unwind to the caller. : 
: 391 0454 1! Before modif ing this routine, consider how reserved opcode or operand ; 
$ 4 ot ; errors will be delivered (users frequently want to catch these). : 
: 34 a<57 FORMAL PARAMETERS: 3 
; + 0435 ii SIGVEC.ra.r The signal vector ; 
3; 60 1! MCHVEC.ra.r The mechanism vector 3 
3 oS 359) ' ENAVEC.ra.r The enable vector : 
: 400 88 1 i IMPLICIT INPUTS: ; 
; 401 0464 1! 3 
Bp A ee : 
> 404 0467 1 | IMPLICIT OUTPUTS: : 
; 405 0468 1! 3 
| ii on tee : 
; 408 4 ROUTINE VALUE: ; 
; 219 bee7 ' Status code. : 
: 41g 475 1 | SIDE EFFECTS: : 
; 41 47 1! 3 
; 414 047 1! NONE 3 
HRB 7 
; 419 480 2 BEGIN ; 
; 418 481 LOCAL : 
: 619 4 § x: REF CTX ak E ' Address of context area 3 
; ca) CAD: REF VECTOR(1); ! Address of context longword : 
: 4 é § BUILTIN : 
i 483 NULLPARAMETER, ; 
; 425 4 CALLG; ; 
.£ 5 4 BIND : 
3 2 4 $3 SIG_NAME = SIGVECCCHFSL_SIG_NAME): BLOCKC BYTE); 

: 430 198 ' If we can't find the context area, resignal the error. 


N . 


SORSINTERFACE e 4 4:14 AX-11 Bliss-32 V4.0-74 Pa 1 
vOe-000 12: 338° 1382 9: 6; 744 SORT32.SRC SORINT Tene 692: - 3d 
; Q } ret} ir | 
; 4 496 BEGIN | 
; 435 rp ENAVECC1) contains the address of a longword. 

; 4 ' This lon more ho a Hy the address of the user § context longword. 

3 6 ! Th us . -ENAVE ect s the address of the user's context longword, 

$ : 5 1 And ...ENAVECL1] is the address of the context area. 

: 440 08 if NULL PARAMETER (3) THEN T mf 

; 441 504 ELIF (CAD 1]) EQL mee TRUE 

3; 44 2 5 ELIF (CAD : “FADES EQL OT RU 

>; 44 $ ELIF (CTX AND NOT tet ) EQL 0 THEN TRUE 

: 446 5 ELSE FALSE 

3; 445 0508 END 

03 $340 THEN EGIN 

; 448 0511 S1G_NAMECSTS$V SEVERITY) = hon poEVERE; 

3 rcs b21§ +4 gaa SS$_RESTGNAL; T'No context, resignal 

: 431 0514 ELIF .SIG_NAME EQL SS$_UNWIND 

Bey pee 

: 455 0318 i If we are unwinding, indicate that the only valid routine to call is 

3 rt Eat END_SORT, indicate that we are no longer active, and return. 

: 458 0521 cr COM_FLO_ABORT] = TRUE; 

: 459 05 j CADCO) = .CADCO) AND NOT %B'1'; 

3 re ¢ be Z — sé  RESIGNA 

: 46¢ L 03 5 RIF SOR. K_END_AST 

> 464 8 ; ELIF 

; rok be 3 a EQL SORS_END_SORT 

; 4s 3 0 BEGIN 

; 469 3 é “i -MCHVECCCHFSL_MCH_DEPTH] EQL 0 ! Did we signal this? 

; 47) 05 4 ” ,RETURN SS$_RESIGNAL 

: 47 05 § 4 BEGIN ' Request to unwind? 

3; 4674 2 4 BIND SIG_VL = SIGVEC: REF yectone 0 LONG); 

; 475 8 4 (. SIGVECECHFSL ie © 

> 476 539 4 (2S1G_VL 3 GTR 0) "AND 

3 ore a29 ? a EQL CADCO)) 

: rit 348 a THEN 

Bipe ace eeu 

: +36 22 ? Unwind to a call to SORSEND_SORT, and return an abort message. | 
ie Be Um yo cag cacesten 

: 4 228 4 ROUTINE “END SORTCCTRADR: REF F VECTORE13): LINK_R1 = 

; 487 550 5 BEG 
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; 488 1 ESTABLISH_(0) ! No condition h 

; 489 § ae = iETXADREO] AND NOT 28° °, * oSusners 

; 490 SORSEND_SORT(CTXADRLOJ); ! End the sort/mer 

3 {33 8 : : pr lune SORS_END_SORT AND NOT STS$M_ Ceveniry OR STS K SEVERE; 


» TITLE Roe aaa ACE 
IDENT \V04-000\ 


~PSECT SORSRW_PICDATA,NOEXE, PIC,2 


00000 SOR_CONTEXT: 
-BLKB 4 


SOR ESE FE CORDES 
R$GK 


nw 
o 
Zz 
bad 
=z 
' 
ow 
m 
© 
o 
=x 
m 
o 
x 
u" 
" 
‘aieditmentutint~ wk” “ye “wie: 


SORSK_MBF — INP== 
SORSK_—MBF "OUT== 
~EXTRN SORSOTREE. INIT 


. 
* 
. 
. 
. 
. 
. 
° 
. 
o 
. 
o 
. 
. 
. 
. 
. 
° 
. 
. 
. 
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. 
*. 
. 
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. 
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. 
° 
° 
. 
° 
. 
o 
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* 
. 
. 
. 
° 
. 
° 
. 
° 
. 
e 
. 
e 
- 
* 
+ 
* 
. 
. 
7 
. 
. 
. 
. 
. 
. 
° 
a 
7 
° 
7 
o 
*. 
° 
. 
. 
. 
o 
. 
o 
. 
o 
. 
° 
2 
. 
. 
o 
. 
o 
o 
° 
. 
e 
. 
* 
. 
. 
. 
o 
. 
aw 


né 

XTRACT 

Qa, _SORSSSPEC K KEY_SUB 
oR 


RSSDECM 
COLLSBASE 
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SORSINTERFACE 1b-3¢ 1984 00:24:14 AX-11 Bliss-32 V4.0-74 Pa S 
904.000 1 =360 138% 90:96 12 SORT32.SRCIJSORINTERF .B32;1 nat FH Vv 

sEXTRN COLLSPAD, COLLSTIE_BREAK 

sEXTRN COLL RESULT, STRSAPPEND 

SEXTRN SORSSCOPY_FILE_NAME 

XTRN SORSSFREE-FILE-NAME 
eEXTRN LIBSGET VA, LIBSFREE_VM 
-EXTRN LIBSSIGRAL 


«PSECT SORSRO_CODE,NOWRT, SHR, PIC,2 


D D4 2 ttre Pes eee: : 0351 
61 i BR ate BICB2 #1, (CTXADR) ; 334 
1 OD 90007 PUSHL CTXADR > 055 
0000v CF 01 FB 00009 CALLS #1, SORSEND_SORT : 
50 OO1CBOEC BF ODO 00006 MOVL #1868012, RO > 0554 
04 0001 RET + 0555 


; Routine Size: 22 bytes, Routine Base: SORSRO_CODE + 0000 


3; 493 0238 4 CTXCCOM_FLO_ABORT) = TRUE; ; 
3 494 0557 4 MCHVECCCHFSC_MCH_SAVR1] = CADCO]; ! Addr of context Longuord 3 
; 495 0558 4 RETURN SUNWIND(DEPADR=MCHVECCCHFSL_MCH_DEPTH], NEWPC=END_SORT+2); ; 
; 496 0559 4 END 3 
: 497 0560 ELSE 3 
: 498 0561 RETURN SS$_RESIGNAL; : 
: 499 b20¢ END : 
; 500 056 2FI $ 
3 301 0564 ELIF .SIG_NAMECSTSSV_SEVERITY] GEQU STSS$K_SEVERE 3 
; 502 0565 THEN 3 
; 503 8268 ecein : 
; 504 056 CTXCCOM_FLO_ABORT] = TRUE; ! May only call END_SORT 3 
; 505 0568 IF_.CTXCCOM_SIGNALJ ; 
; 506 0569 THEN 3 
; 507 0570 RETURN SS$_RESIGNAL; ! Signal errors ; 
: 508 0571 MCHVECCCHFSL_MTH_SAVRO] = .SIG_NAME; 3 
; 509 B206 RETURN SUNWIRD(); ! Return error status to caller 3 
; 510 057 END $ 
; ay 0574 ELSE 3 
3 \ 0575 BEGIN 3 
s > 0576 ! 3 
3; 6514 0577 ! Update the worst error we've seen, and either resignal or continue. 3 
3 212 278 ! If we resignal, make the worst error an informational, : 
; 516 57 ! since the user will have ai feety seen it. : 
3 OW 580 ! If we continue, make the worst error the same as the signalled error, 3 
; \8 b2 1 to make the user more aware of what he missed. : 
; 0 5 : IF .CTXCCOM_SIGNALJ 3 
: 1 584 THEN F 
3 § 585 4 BEGIN 3 
: Z : $ 2 aSIC_MAMECSTSSV_FAC_NO2 EQL SORTS_FACILITY 3 
: : 5 588 4 CTXCCOM_WORST] = SORS_ENDDIAGS AND NOT STSSM_SEVERITY OR 3 
: $ 589 4 K ; ' Just an informational ; 
; 590 4 RETURN SS$_RESIGNAL; ! Signal errors : 
3 8 591 4 END 3 


are areca acca caamaen amen aces eee ene ene . ee: | | real 
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SORSINTERFACE 16-Sep-1984 00:24:14 — YAX-11_Bliss-32 V4.0-74 4 
ve=000 Ve=Sep-198e 19if0iee — ESoRTs2°SReSSORINTERF 832; 1 a 
> 929 92 3 ELSE : 
; 230 38 4 BEGIN : 
> $31 4 4 IF .SIG_NAMECSTSSV_FAC_NOJ EQL SORTS_FACILITY : 
; ; 95 4 THEN : 
; 36 BEGIN 
; $34 9 BIND 
> 935 38 SEV = UPLIT BYTE(2,0,341.4.4,404): VECTORE BYTE; 
: 236 299 Mein v “SIG_NAME AND ?)’GERO <SEVE.CTXLEOM,WORST AND 73 
; $38 601 CTXCCOM WORST = 4 S1G_NAME | 
; 539 60¢ CTXCCOM WORST XECOM"WORST] AND STSSM SEVERITY : 
: 340 oe84 ; np .OR SORS. ENDDIAGS AND ROT STSSM. SEVERITY: ; 
; 54 605 4 RETURN §S$_CONTINUE; ! Ignore trivial errors ; 
: 808 0606 END; : 
; ete 060 END; ; 
3 945 0608 : 
; 546 0609 1 END; : 
04 04 04 04 01 03 00 02 00016 P.AAA: .BYTE 2,0, 3,1, 4, 4, 4, 4 : : 
SEV= P. AAA : 
-EXTRN SYSSUNWIND ; 
003C 00000 COND_HAND: 3 
WORD Save R2,R3,R4,R5 : 0437 ; 
55 FS AF 9E 00002 MOVAB SEV, R ; : 
52 04 AC D0 00006 OVL  SIGVEC, R2 ; 0491 : 
54 04 Ad 9E OOOOA MOVAB 4(R2), _R4 ; : 
03 6C 91 OO00E CMPB (AP), #3 ; 0503 : 
1A 1 00011 BLSSU 1$ ; : 
Oc AC D3 00015 TSTL =. 12 (AP) ; 
15 13 00016 BEQL = 18 : 
50 Oc AC 00 00018 MOVL — ENAVEC, RO ; 0504 
5 04 AD dO 0001¢ MOVL © 4(RO), CAD : 
08 13 00026 BEQL = 1$ 
53 63 0 000¢e MOVL (CAD), CAD ; 0505 
06 13 000 BEQL_ «= -1$ 
50 63 01 CB 00027 BICL3 #1, (CAD), CTX ; 0506 
7? 12 00028 BNEQ 2$ : 
64 03 00 4 FO 0002 18:  —INSV. #4, #0, #3, (RA) ; 0511 
D 11 99 BRB 7S ; 0513 
00000920 8F 64 pl 28:  CMPL«(R4), #2336 ; 0514 
09 12 00038 BNEQ_ —3$ : 
sc OA 10 903D BISB2 #16, 92¢CTX) : 0521 
6 01 8A 00041 BICB2 § #1, (CAD) : O5¢¢ 
6B 11 00044 BRB ; 05 
Q01C80E9 BF $4 1 00066 38: CMPL_«(R4), #1868009 ; 0528 
A 12 00040 BNEG = 4 ; 
51 08 AC DO OO04E MOVL = RCHVEC, RI ; 0532 
* $9 18 00036 geal 7s 
05 é3 Dt 00088 CMPL = (R2), #5 ; 0538 
4 1 00058 BLSSU 7S 
08 A2 05 00050 TSTL = BC R2) ; 0539 


SREP RTERFACE 
v04-000 


|f3en-19¢ 


4F 15 
53 oc Ag 9 é 
5¢ AO 10 8 
6 Al 48 f 
FF7 CF OF 
0 Al 9F 74 
1A (11 77 
04 64 03 90 fp 79 4$: 
F 43 
; AQ 10 8 
28 B a9 02 € 4 
5 08 AC OD 9 
oc Al $e p D 
S15 $33 
000000006 00 02 FB 93 5$: 
04 9 
17 5B AO 3 E1 H 6$: 
1¢ 02 AG oc 89 i3 Bon 
0130 £8 001 c8es8 8F 4 SOAS 
0 091 8F 3C 000B1 7$: 
04 Bp86 
1¢ 02 AG oc 00 €D 443 8$: 
58 12 0008D 
51 64 93 O EF OOOBF 
0130 CO 9E 000C4 
50 63 03 00 44 000C9 
6540 6541 91 000C 
03 18 000D 
63 64 00 000D 
50 63 03 0O EF 944 9$: 
63 50 001¢8288 8F C9 Beee 
50 01 00 43 108: 
04 000E8 
; Routine Size: 233 bytes, Routine Base: SORS$RO_CODE + OO1E 


a 8:46: 


ant Bliss-32 V4.0-7 
2.SRCJSORINTERF. : 231 


714 
0:44 SORT 


? 

12cnay, CAD 

#16, 92(CTX) 
CAD, 16(R1) 

ND _SORT+2 

(RT) 

#0, #3, (R4), #4 


#16, 92(CTX) 
#2, ei SChy) 7$ 


MCHVEC, R 
4), 12(R1) 
SP§ 

, SYSSUNWIND 

91 

#1 


1(CTX) 
2, he #28 


oy gggee? 304(CTX) 


woom 
bad 


o 


6: 


22nvzBBz Bi~ 
Lat ed a 


WO, #12, 2(R4), #28 


(Rd), R1 
S04¢ET k 


a3 irs 
ePacRi. £3) 


(RA) 
#3 R223), RO 
ribo 8424, RO, (R3) 


Pete Se Se Se Se Ge Se Be Se Be Ge Be Be Se Ge Ge Ge Fe Ge Fe Fe Ge Fe Ge Fe Fe Ge Ge Fe Ge Ge Fe Be Fe 


F 10 
Vase 1886 PBiHG:22 — ESoatS2°SReSsORINt 


ad ae 


3 ‘3 19 } GLOBAL ROUTINE SORSSERROR(ERR) = 

: 12 1 144 

3 1 15 1! 

; § 2 } FUNCTIONAL DESCRIPTION: 

; ¢ oie } } This routine signals an error diagnostic. 
; : e19 : FORMAL PARAMETERS: 

; 3 6 : } Parameters passed to LIBSSIGNAL. 
: 560 § 1 ! IMPLICIT INPUTS: 

; 561 6 1! 

3 o¢ 624 1! NONE 

; 625 1! 

3 64 06 $ 1 ! IMPLICIT OUTPUTS: 

s 565 06 1! 

3 08 0628 1! NONE 

3 20 0629 1! 

: 24 8 , : ROUTINE VALUE: 

: 233 06 § 1! System status (first parameter of signalled status), with the 
3; or 06 1! INHIB_MSG bit set. 

3 Me 0634 1! 

5 oF 0635 1 ! SIDE EFFECTS: 

3; 574 8 $ 1! 

; Svs 6 1} The image may be exitted due to the error. 
3 a7$ 0638 1! 

3; 577 0639 1 !-- 

3 ue 0640 BEGIN 

: 57 0641 BUILTIN 

; 580 bee AP, 

; #581 64 CALLG; 

3 286 0644 CALLG(.AP, LIBSSIGNAL); 

; 58 0645 RETURN .ERR OR STS$M_INHIB_MSG; 

3; 584 0646 1 END; 


000000006 00 aes 0009 cALLG. AP) CiBsSIGNAL on’ 
0 4 AC 10000000 He 9 20009 gist$ 126Bh3base, ERR, RO 


; Routine Size: 19 bytes, Routine Base: SORSRO_CODE + 0107 


.0 
ER 


-7% 
F.852;1 


row As 


$$$ ———- —} 
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vo02000 1 300-1382 99:76:k6 — ESbardeOSneSsonmnténr 62:1 9 
ROUTINE INI_CTX 


CTXADR: REF VECTORC1) 
): JSBLINI_CTX NOVALUE = 


Address of the storage. 
SIDE EFFECTS: 
NONE 


3) lee 
! 
38 ; FUNCTIONAL DESCRIPTION: 
95 This routine allocates and initializes the context area. 
$f FORMAL PARAMETERS: 
99 i NONE 
600 t 
ret IMPLICIT INPUTS: 
60 i NONE 
604 ‘ 
605 ' IMPLICIT OUTPUTS: 
one : 
pet } The process region may be expanded. 
609 | ROUTINE VALUE: 
i 
i 
! 
i 
! 
i 
: 


eh a ed et A 8 a a a Ss tt 


BEGIN 
EXTERNAL REGISTER 
CTX =  COM_REG_CTX: REF CTX_BLOCK; 


LOCAL 
ADDR, 
STATUS; 


' Note that we store the address of the context area in a temporary. 
' This creates a ‘window of vulnerability’ during which an asynchronous 
! abort could seriously disrupt everything. 


' 

' 

' 

' 

STATUS = LIBSGET_VM(ZREF(CTX_K_SIZE*ZUPVAL), ADDR); 
IF NOT .STATUS 


CALA AIO ROPOPUPUNUPUPUTUND 2 2 


NRETURN SORSSERROR(SORS_SHR_SYSERROR, 0, .STATUS); 
: Store the address of the context area in our global register 
CTX = .ADDR; 
: Verify that the allocated storage is aligned on a longword boundary 
IF (CTXCBASE_) AND %B°11") NEQ 0 
THEN 


AOAPAPAAAAAAAAAAAAAAAAAAAAAAAO 


FFF 
—~—o 
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; Routine Size: 95 bytes, Routine Base: SORSRO_CODE + O11A 


; $3 q é RETURN SORSSERROR(SORS_SHR_SYSERROR, 0, .STATUS); : 
3 2 , $ } Zero-fill the storage before storing it's address ; 
; sf 208 CHSFILL(O, CTX_K_SIZE*SUPVAL, CTXCBASE_1); ; 
; re} oy Store the address of the context area, leaving the sync bit alone. ; 
3 e31 at CTXADRCO] = .CTXADRCO] OR .CTX: ; 
; $38 714 ! Store the address of the context longword, ; 
: $28 a } So we can pass it to the callback routines. : 
: 636 a9 %1F NOT HOSTILE %THEN ; 
; 63 718 IF CTXADRCO] NEQ SOR_CONTEXT 3 
: 889 726 $ art ; 
: 660 721 CTXCCOM_CTXADR] = CTXADRCO); : 
; 661 7 ; 3 
; 662 07 END; : 
53 DD 00000 INI_CTX:PUSHL 3 + 0647 : 

SE o¢ C3 90002 SUBL #i2, SP ; : 

04 AE DO 0000 MOVL R3, CTXADR ; : 

08 AE 9F 00009 PUSHAB 3 0691 : 

04 AE 0150 8F 3C 0000 MOVZWL #336, 4(SP) : : 

06 =A F 0001 PUSHAB 4( : : 

000000006 00 03 FB 001 CALLS ae, LIBSGET_VM : : 

52 DO 0001C MOVL RO, STATUS : 3 

09 52 £9 O001F BLBC STATUS, 1$ + 0692 : 

58 08 AE ; 0022 MOVL ADDR, gTX : 0698 F 

03 5 0026 BITB CTX, # : 0702 : 

10 13 00029 BEQL 2s : 3 

52 DD 00028 18 PUSHL STATUS 3 0704 : 

7E D4 00020 CLRL -(SP) 3 3 

001C€11B4 8F ODD 99 F PUSHL #1839540 ; 3 

B4 sOAF 93 FB 99 3 CALLS #3, SORSSERROR : : 

0150 =«&F 00 6£ 06 2c 03 28: MOVCS #0, (SP), #0, #336, (CTX) : 0708 : 

04 F $8 cs Be BISL2 CTX, @CTXADR > 071 : 

; 00000000' EF : 4 MOVAB SOR CONTEXT, RO : 071 3 

0 04 AE D 4 CMPL TXADR, RO : $ 

05. (1 BEQL $ 3 3 

54 AB 04 AE 00 000 MOVL CTXADR, 84(CTX) : 0731 3 

5E o¢ CO 00059 3$ ADDL2 #i2, Ne : 0723 ; 

BA 99 ¢ POP #AM<R3> ; 3 

5 0005E RSB 3 : 
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$68 GLOBAL ROUTINE SORSSALLOCATE 

6 es CAL_CTXREG = 

i ; 

of) FUNCTIONAL DESCRIPTION: 

ers This routine allocates storage. 

of? FORMAL PARAMETERS: 

ei SIZE.rl.v Number of bytes to allocate 

679 IMPLICIT INPUTS: 

680 

681 NONE 


IMPLICIT OUTPUTS: 
The process region may be expanded. 
ROUTINE VALUE: 
Address of the storage. 
SIDE EFFECTS: 
NONE 
NOTES: 
The pterage allocated by this routine is cleared. 


SSNS SNS 
SIO ODS OS OS OOOO De TTT BB BB BBB BB AAAI III nonononorny) 
NAW WAN CO OD NAUE WN 2 OO ONOA UE AN "OO ONO UNE WN" OVOOVNOUS 


PPTUTTETE TLIC IL TL IRI ITE TEI IEEE ICIS ISCTSOSICICTcrereerecrarere rere rarer 
o 
co 
@ 

SOOO OCOOCOOCOCOCOCOCOOCOCOC OOOO COCO OOOOOOOOOOOOOOOOCOOOOOOOoOO 


=O POPOPOROPUNINIY 3 = = 2 tt ss 


698 This routine should be used only for small pieces of memo Zt 
44 For larger pieces of memory, LIBSGET_VM should be called directly. 
701 -- 
70 BEGIN 
70 EXTERNAL REGISTER 
704 CTX =  COM_REG_CTX: REF CTX_BLOCK; 
705 LOCAL 
706 
10? STA 
708 8 STATUS : “Fiesce VM(SIZE, ADDR) 
709 9 IF NOT . S TREN SORSSERROR(SORS_ SHR_SYSERROR, 0, .STATUS); 
710 0 CHSF ILL ( ize. ADDR); ' Zero-fill the storage 
ae | RETURN . sa! ! noted the address 


0036 0 sENTRY SORSSALLOCATE, Save R2,R3,R4,R5 ; 0724 
C 8 SUBL2 #4, SP 


5E 4 ‘ 3 
ge PUSHL SP ; 0768 
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000000006 00 AS OE Oh attics Ha 7 esset_vn : 
8 EB 1 BLBS sis : 0769 
E be 0008 chat 
001¢11B4 8F DD i8 PUSHL # Px0 ; 
FF6B fF 3 FB 1 CALL #3, SORSSERROR 3 
04 Ac 00 00 2¢ 1$: moves #0. (SP), #0, SIZE, @ADDR ; 0770 
6E 00 8 MOVL ADDR, RO : 0771 
be E RET : 0772 
; Routine Size: 47 bytes, Routine Base: SORSRO_CODE + 0179 
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SORS INTERFACE 5ep-1984 16 -YAX=11_BLiss-32 V Pa 1 
Nivea 12: att 7 99: $gi4 44 SORT ° SRC SORINT ihr 5 2:1 o 9) 
: 3 GLOBAL ROUTINE SORSSDEALLOCATE 
; 775 1 SIZE, 
; ae 1 ADDR: REF VECTORCE1), 
3 777 «1 NEW 
3 ak } CAL_CTXREG NOVALUE = 
; my yi 
: , ; FUNCTIONAL DESCRIPTION: 
; f : } This routine deallocates storage. 
: g : FORMAL PARAMETERS: 
: 788 1: SIZE.rl.v Number of bytes to deallocate (by value 
s 789 1 ADDR.ra.r Address of storage to roe, becete (by aierenael 
: ry ! NEWVAL.rl.v New value to store at ADDR 
; 079¢ 1 | IMPLICIT INPUTS: 
| re 
: 0795 1: 
; 0796 1 ' IMPLICIT OUTPUTS: 
; 797 1/3 
: 0798 1 NONE 
3 799 1! 
; ae3t ROUTINE VALUE: 
; 02 1! NONE 
: $808 1i 
; 0804 1 ! SIDE EFFECTS: 
3 0805 1! 
geet — 
: 749 0808 1 i- 
: 750 0809 ” BEGIN 
: 751 810 EXTERNAL REGISTER 
; 03¢ 0811 CTX =  COM_REG_CTX: REF CTX_BLOCK; 
: 75 OB1¢ BUILTIN 
: 754 81 NULLPARAMETER; 
ao. me 
: 757 1 STATUS: 
3 738 a IF SI E EQL 0 OR .ADDRCO] EQL O THEN RETURN; 
. Ss ° 
: 760 0819 IF NOT NULLPARAMETER(3) THEN VAL =. .NEWVAL; 
> 761 820 STATUS = LIBSFREE_VM(SIZE, ADDR(O)); 
: 78 B52 SPomOT  . STATOE’ THEN SORSSERROR( 
; 166 08 § -SORS_ SHR_SYSERROR AND NOT STSSM_SEVERITY OR STS$K_ERROR, 0, .STATUS); 


+4 
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S34 


0004 .ENTRY SORSSDEALLOCATE, Save R2 
ac p TSTL size 
BEQL 
08 p TSTL SADOR 
A BEQL $ 
ps C CLRL =: VAL 
03 6¢ 1 (MPR «CAPD, #3 
1f 0001 BLSSU 
oc ac p 1 TSTL 12¢AP) 
04 1 BEQL si 
52 of AC D 1 MOVL §NEWVAL, VAL 
0 AC po 1C 18 PUSHL ADDR 
4 AC 9F OOOTF PUSHAB SIZE 
000000006 00 F 2 CALLS #2, LIBSFREE_VM 
08 BC D MOVL VAL, @ADDR 
F E8 00 BLBS STATUS, 2$ 
DD 0 PUSHL STATUS 
E D4 0 CLRL. = 
001¢11B2 i DD 00 PUSHL #1839538 
FF20 CF 3 FB OOO3A CALLS #3, SORSSERROR 
04 0003F 2s: RET 


; Routine Size: 64 bytes, Routine Base: SORSRO_CODE + 01A8 


3S 


m 10 
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; f 7 5 1 ZIF NOT HOSTILE ZTHEN 3 
; 5 ROUTINE CLOSE _FILE ; 
: a : 1 FAB: REF BLOCKC,BYTEI, ; 
: 77 1 DDB: REF DDB_BLOCK, ; 
: 77 01 ERROR ; 
; f ? 1 } ): CAL_CTXREG NOVALUE = : 
: 775 Q 1 44 F 
; 776 1! 3 
; ad 5 i FUNCTIONAL DESCRIPTION: ; 
: 8 1 This routine closes a file. 3 
: 78 ° FORMAL PARAMETERS: : 
i. ¢ | et FAB Pointer to the FAB : 
- FT ¢ 1! 008 Pointer to the DDB 3 
: f 5 Oatz : ERROR Message to issue if the close fails. : 
: res 0845 1 | IMPLICIT INPUTS: : 
RTT an | 
> 790 bcs 1: ; 
: 791 0 49 1°! IMPLICIT OUTPUTS: : 
: 79 830 1/ ; 
: 8 oBs2 1 | _ 
: 795 Bag 1! ROUTINE VALUE: : 
5 136 854 1! 3 
: 8h Bead i —_ : 
: 799 He ; SIDE EFFECTS: 3 
; 801 0859 NONE ; 
; 80 Bet 1 lee : 
3 04 : BEGIN 3 
; Bes ! Copy the IFI (to reference the file), ; 
3 34 5 and the FOP (for user-specified options) : 
: Bos opes Zero the IFI in the DDB, so we know that this file is closed 3 
; i? $ FABCFABSW_IFI) = .DDB ppB_1F 13: : 
; ig 0 FABLFABSL-FOP] = .DDBCDDB FOP ; ; 
: 13 4 IF NOT $CCOSE(FAB=F ABLBASE_}) : 
: 815 ig SORSSERROR RROR, 1, DDBEDDB NAME} F 
; 1 874 iFAB FAB L_STS), .FABLFABSL_STV); : 
: 81 75 ppBCopB_iF i) = 0; ; 
; 18 6 : 
3 19 087 END; : 


-EXTRN SYSSCLOSE 


nN 10 
voe-000 1er$ep=1986 $8:f0ree — ESDaTSzesme SsORINTERF -682:1 Paae 18} 


000C 00000 CLOSE STE te 


WO Save R2,R3 3 082 
5 04 AC 7? MOva FAB RS’ ; $849 
02 A ¢ ASB mOVvw Oo (Re), 2¢R2) : 
A 10 Ad OD MOVL 16(R3), 4(R2) + 0870 
DD 0001 PUSHL R + 0871 
000000006 00 FB 01 CALLS #1, SYSSCLOSE ; 
11 5 01 BLBS RO, 18 ; 
7E 8 A2 ?0 0001 mova 8cR2), -(SP) + 0874 
4 AS OF PUSHAB 4(R3) : 0873 
01 DD PUSHL #1 ; 
0c AC DD PUSHL ERROR F 
FEF2 CF 05 FB 00028 CALLS #5, SORSSERROR ; 
Oc A b4 02D 1$: CLRL —s-: 12¢R3) + 0875 
4 RET + 0877 


; Routine Size: 49 bytes, Routine Base: SORSRO_CODE + O1E8 


: 820 0878 1 XFI 


s=¢ 
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3 ¢ £8 1 SIF NOT HOSTILE XTHEN 3 
; ? ! GLOBAL RUT INE SORSPASS_FILES ! Finished ; 
3 5 § 1 INP_DESC: REF pL OcKh BvTEd. ! Input tite name descriptor : 
 & § 1 OUT_DESC: REF BLOCK evie ' Pybput file name descriptor ; 
; 8 4 4 ORG? REF VECTOR(1 BYTE, i bile organization ; 
; 828 ee RFM: REF VECTOR(L1,BYTE), ' Record format : 
; 829 § 1 BKS: REF VECTORL1,BYTEJ, ' Bucket size : 
; 850 1 BLS: REF VECTORL1,WORDJ, } B.ogk size ; 
; 831 0888 1 MRS: REF VECTORL1,WORDJ, ! Maximum record size ; 
; & ¢ 0889 1 ALQ: REF VECTORL1,LONGJ, ! Allocation quantit 3 
3; & Beat 1 FOP: REF VECTORL1,LONGJ, ! File-processing options 3 
; 834 91 1 FSZ: REF VECTORL1,BYTEJ, ' VFC field size 3 
3 839 95 1 CONTEXT: REF VECTOR(L1,LONG ! Addr of context longword : 
. & | 0893 1 sOUT_CTX 3 
 f 089% 1 $: AND_RETURN_R1 = ; 
; 838 895 1 !44 3 
; 839 +947 1! 3 
; 840 897 1 ! FUNCTIONAL DESCRIPTION: $ 
> «841 0898 1! $ 
$ otg 0899 1! This routine passes input file name(s), output file name, and output 3 
; 84 0900 1! file characteristics to the sort or merge. F 
3: 844 0901 1! 3 
; 845 090 1 ! FORMAL PARAMETERS: ; 
; 846 0903 1! 3 
; 847 0904 1! INP_DESC.ra.d Input file descriptor 3 
; 848 0905 1! OUT_DESC.ra.d Output file descriptor 3 
; 849 0906 1! ORG.rbu.r File organization (FABS$B_ORG) ; 
; 850 0907 1! RFM.rbu.r Record format (FABSB_RFM) : 
; 851 0908 1! BKS.rbu.r Bucket size (FABSB_BKS) : 
H b2¢ 0909 1! BLS.rwu.r Block size (FABSW_BLS) 3 
3; 8 0910 1! MRS.rwu.r Longest record length (FABSW_MRS) 3 
3; 6854 0911 1°! ALQ.rlu.r Allocation quantity (F ABSL_ALQ) 3 
3 899 8315 1! FOP.rlu.r File options (FABSL_FOP) F 
3 528 at ee FSZ.rbu.r VFC field size (FABSB_FSZ) : 
3 See Baie ! CONTEXT. ra.r Longword pointing to work area : 
3 B39 3318 1! ALL parameters except INP_DESC are optional. 3 
; 860 04 1! $ 
: $0) 218 1 ! IMPLICIT INPUTS: : 
: ; 4 1! 3 
3 +4 920 1! NONE 3 
3; 864 1) ee : 
3 64 356 i ; IMPLICIT OUTPUTS: : 
; 86 924 1! NONE 3 
3; 868 925 1! 3 
3 9 9 § 1 ! ROUTINE VALUE: 3 
3 0 9 1! 3 
3; «6871 9 8 1! Status code. F 
3 Le 9 1! 3 
H 6 2 ? : : SIDE EFFECTS: : 
: Ne , § : If present, the output file characteristics are saved. : 
; 87 934 1 !<- 3 
; 878 935 2 BEGIN 3 


OC eee + crc 
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Copy the input file name string to the DDB 
SORSSCOPY_FILE_NAME (INP_DESCCBASE_1, DOBCDDB_NAME J); 


'¢ 
! 


Process the output file specification 


le 
if NOT NULL_(OUT_DESC) 
THEN 


WAPOROMONONONONONONUN 2 2 SS 


WWAAA 
MEWUN —OOONOUES WN “QO OONOuUSWwN oO 


BEGIN 
IF .CTXCCOM_OUT_DDB] NEQ 0 ! Output already specified? 
RETURN__(SOR$_DUP_OUTPUT) ; 


; 1 2 § FIRSTPARAMETER_CINP_DESC); ! Required by PRESENT_ and NULL_ macros : 
: 881 9 LOCAL : 
; 8¢ 9 DDB: REF DDB_BLOCK, ! Pointer to FAB/RAB/NAM/XAB blocks : 
; 8 94 STATUS; i Status ; 
; 4 94 BUILTIN : 
; 88> ae ACTUALCOUNT; ; 
; es? 0944 CONTEXT_ (CONTEXT); ; 
: SBe 946 IF ACTUALCOUNT() NEQ 0 THEN : 
; 890 34 IF .CTXCCOM_FLO_NOINIT] THEN RETURN__(SOR$_SORT_ON); 3 
iB ml rf 1 
B35 3 i Process the input file specification : 
: 897 0954 if NOT NULL_(INP_DESC) : 
et: $98 oy 
; 900 0387 IF .CTXCCOM_NUM_FILES] GEQ MAX_FILES THEN RETURN__(SOR$_INP_FILES); : 
; 4 9494 } Allocate DDB and Link into List (at the end of the List) ; 
: 904 DDB_= SORSSALLOCATE(DDB_K SIZE); : 
> 905 6 DDBCDDB_FIL] = .CTXCCOM"NOM_FILES); ! Numbers 0 on up : 
; 906 4 BEGIN 3 
; 907 4 LOCAL 3 
: 908 4 P: REF DDB_BLOCK; : 
: 909 4 P = CTXCCOM_INP DDB = XFIELDEXPAND(DDB_NEXT,0); F 
: 91 4 DECR I FROM~.CTRCCOM_NUM_FILESJ-1 TO 0 60 P = .PCDDB_NEXT); ; 
; 4 PLDDB_NEXT] = DDBLBASE J: ' Link DDB into List : 
; : CTXCCOM_NUM_FILES = .CTXCCOM_NUM_FILES] + 1; | One more file ; 


DOODOOOOOOOOOOOOOVOOVOOOODOOOVONO 


' Allocate the DDB for the output file. 
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ve the ORG, RFM, et.al. 
_SORT or INIT_MERGE. 


jecete space to sa 
INIT 

SRSPALLOCATE (OOS _K_SIZE); 

DB); 


s is used in 


OM_OUT DDB] = § 
"CTXLCOM OUT_D 


N 
C 


ETCH. (N 


— 
Oo 
o 


: REF VECTOR; 


> 
ZzEtETIETITIEIEIoOVr "ozo 


a ae ae La La a ta? 


CONOUS Wr 


Pp 
ORG) 
RFM) 
BKS) 
BLS) 
MRS) 
ALQ) 
FOP) 
FSZ) 


os ee ee ee es es i De® | 
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— eet 
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Copy the output file name string to the DDB 


SORSSCOPY_FILE_NAME(OUT_DESCCBASE_], DDBCDDB_NAME)); 


END; 


OUT_CTX = CTXCBASE_); 
RETURN__(SS$_NORMAL) ; 
END; 


08 00 
57 state $13 00 02 
56 FF5 cr Re 
6D 0170 =«CF 1 MOVAL 
08 4 1 

1 

53 2c bt 
53 00000000' 6 1$: MOVAB 
6 2$: 
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VIOOO>r OOOVIMNNe,> 


XXX) = 
IF NOT NULL_(XXX) THEN (PLOJ=.PLO] OR 1°N; PLN] = .XXXCOJ) 2%; 


OM_PASS_FILES] = SORSSALLOCATE (XUPVAL+8*%UPVAL); 


SORSPASS FILES, Save R2,R3,R4,R5,R6,R7,R11 
SORSSCOPY_FILE_NAME, R7 
SORSSALLOCATE, -R6 


SOR_CONTEXT, P__ 
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SORSRO_CODE + 0219 


415 bytes, Routine Base: 


; Routine Size: 


1 XFI 
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; 971 1027 1 !4 

3 97 1 1! 

; 378 1 § 1 ! Due to the similarity of SORSBEGIN_SORT and SORSBEGIN_MERGE, 

; are : , ! a macro is used to generate code for each. 

3 378 1 ¢ 1 !- 

; 97 1 1 CRO 

; 978 M1034 1 BEGIN_SORT_MERGE(SM) = 

s 44 18 5 ! F IRSTPARAMETER_(KEY_BUFFER); ! Required by PRESENT_ and NULL_ macros 
; «981 M10 5 1 LITERAL 

3 oes 4 13 4 1 USED_OPTIONS = 

=. 41 1 x 

; «984 41040 1 OPT_NODUPS OPT_NOSIGNAL, OPT_LOAD_FILL, OPT_STABLE 
: 985 M1041 1 ZIF“NOT HOSTILE-XTHEN , OPT EBCDIC> OPT MULTY %FI 
: 986 4 104¢ 1 MIF ZIDENTICAL(SM,MERGE) XTREN , OPT_SEO_CHECK %F1 
; 987 ™ 10435 1 : 

; 988 M1044 1 

; 989 m 1045 1 BUILTIN 

; 990 m 1046 1 TESTBITSS, 

; 991 M1047 1 TESTBITSC, 

; 99 ™ 1048 1 ACTUALCOUNT; 

; 99 m 1049 1 

: 994 ™ 1050 1 OCAL 

: 995 m 1051 1 DOKEY_RTN, 

: 996 M 1936 1 DOKEY- PRM, 

; 997 m1053 1 STATUS; 

; 998 ™ 1054 1 

3; 999 m 1055 1 ' Get the context area 

; 1000 Mi 1926 1 ! 

; 1001 mM 105 1 CONTEXT_ (CONTEXT); 

; 1gR6 ™ 1058 1 

: 100 ™ 1059 1 

3 Hh z 1369 ' ; Determine whether to signal or return errors 

3 4 . 1006 } IF (IF NULL_(OPTIONS) THEN TRUE ELSE NOT .OPTIONSCOPT_NOSIGNALJ) 
3; 1008 ™ 1064 1 CTXCCOM_SIGNAL) = TRUE; 

3: 1009 ™ 1065 1 

: 1010 M 10 1 

3 48 | st ' Check and update the flow-of-control flags 

: 1918 M 1969 1 if TESTBITSS(CTXCCOM_FLO_NOINIT]) THEN RETURN__(SORS_SORT_ON); 
3 ote fa] 1920 1 ZIF LIDENTICAL(SM, SORT) 

; 1015 4 107 1 ZTHEN 

: 4 M 1976 1 ! If a sort with record interface on input, 

: 101 m 10735 1 ' RELEASE_REC may now be called. 

: 34 : 4) ! Also, SORT_MERGE may be called. 

: 1020 M 107 1 IF ,CTXCCOM_NUM_FILES) EQL 0 THEN CTXCCOM_FLO_RELEASE] = TRUE; 
: 10 1 M1077 1 CTXECOM_FLO-SORT] = TRUE; 

: 1 ; 41 8 1 ZF I 

31 41079 1 ZIF LIDENTICAL(SM,MERGE) 

3: 1024 41080 1 ZTHEN 

3; 1025 ™ 1081 1 ' If a merge with record interface on output, 

: + $ a1 § 1 ' RETURN_REC may now be called. 

31 “1 1 ! Also, BO_MERGE (an archaic routine) may be called. 


H 11 
SORSINTERFACE 16-Sep-1984 00:24:14 AX-11 Bliss-32 V4.0-74 P 1 
y04.000 127308718 4 00: ab de SORT32.SRCJSORINTERF .B32;1 eee 43} 
0 ' 
if ,CTXCCOM_OUT_DDB] EQL 0 THEN CTXCCOM_FLO_RETURN] = TRUE; 
ane CTxtEOM-FLO-DOMERGES = TRUE; “ire eee 


Get the options parameters 
if NOT NULL_ (OPTIONS) 
THEN 


BEGIN 
Hen or POMSCO ALD AND NOT USED_OPTIONS) NEQ 0 


RETURN__ (SOR$_UNDOPTION) ; ! Invalid options specified 
41F_XIDENTICAL (SM7MERGE ) “ ci 


' IF .OPTIONSCOPT_SEQ_CHECK] THEN CTXCCOM_SEQ_CHECK] = TRUE; 


-OPTIONS od Et THEN CTXCCOM_STABLE] = TRUE; 
-OPTIONSLOPT_NODUPSJ THEN CTXLCOM_NODUPS] = TRYE; 
-OPTIONSCOPT_LOAD_FILL] THEN CTXCCOM_LOAD_FILLJ = TRUE; 


IF 
IF 
IF 
ZIF NOT HOSTILE ZTHEN 
Hag”  TONSLOPT EBCDICS OR .OPTIONSCOPT_MULTIJ 
BEGIN 


! Simply note that we have a collating sequence, so that we won't 
! process other collating sequences in the specification text. 

! The nate ta sequence will be fully processed after we have an 
opportunity to process the pad characater, if any. 


gOPTIONSCOPT EBCDIC AND .OPTIONSCOPT_MULTIJ 


RETURN__(SORS$_KEYAMBINC): 
CCOM_OVR-COLSEG] = TRUE; 


lelelelelelelelelelolelelelololo) 
ANNI AAAI AAI IPIPIPUPIPYAININDINIDD 2 2? 2 | QOTDTOOCOOCOOCOWOOVOOWOOOVOO 
NOUS WN OOM uw 
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ox 


F 
H 
T 
N 
FI 
END; 


RIF ZIDENTICAL(SM,SORT) 
THEN 


Determine the type of sort 
IF NOT NULL_(SORT_TYPE) 
THEN 
BEGIN 
CTXCCOM_SORT_TYPE) = .SORT_TYPECO); 
Hu. COM_OVR_PROC] = TRUE; 
IF .CTXECOM_SORT_TYPE] EQL 0 
CTXCCOM_SORT_TYPE] = TYP_K_RECORD ! Default to a record sort 


ELIF 
rete Nn TPES GTRU TYP_K_MAX ! Check for valid sort type 


SELES ESRER isis: 


oO 
MO HOON R UNO 


a dd od 
BBBVSSBSSSSTSSTSSSSTTTSTTTSTSTSTTSTSTSTSSTSTSTSESTSSSESSSESSSESBSESTIESTISISISIIIsIsTsZ 
at miatatadtmbadadadmiadatatatatabtad tatatai iia taba abad dadbababababababaiadabuabababababababababababababah 
etm ated etd eat ee a a ad a a ee ad ad me a aD ab ad ad ed ee aed ada aad edad adadadabadadadadad 


SONA MNES WN 9 OO NOAUE WIN 0 ODNOAUE WN "OO OONOUSWN OOO 
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RETURN__( SORSSERROR(SORS$_BAD_TYPE) ); 


Get the total file allocation, if specified. 

if NOT NULL_(FILE_ALLOC) THEN CTXCCOM_FILE_ALLOC] = .FILE_ALLOC(O]; 
' Get the number of work files, and check the value. 
} Note: we don't open the work files ‘til needed. 
CTXCCOM WRK_FILES] = DEF_WORK_FILES; 

von RULL= (WORK_FILES) 


BEGIN 
ahitin WRK_FILES] = ,WORK_FILESCO]; 
IF -CTXECOM~WRK_FILES] NEQ~O 


N 
eat cate als LSSU MIN_WORK_FILES 


oO 
MEW 


S33 


BEGIN 
CTRECOM WRK FILES) = MIN WORK_FILES; 
SORSSERROR (SOR$_BAD_MERGE) ; 


N 
-CTXCCOM_WRK_FILES] GTRU MAX_WORK_FILES 


ed ed td dd dd 8 
PEED DA PPLE 


WR O DONA UE WN OOONOU ST 


65 ELIF 

96 THEN 

6 ecein 

68 CTXCCOM_WRK_FILES] = MAX_WORK_FILES; 
4 SORSSERAOR (SORS_BAD_RERGE) ; 
71 END; 

Lf; 2FI 

a 

75 ZIF LIDENTICAL(SM,MERGE) 

6 ZTHEN 

4 CTXCCOM_MERGE] = TRUE; 

7 

8 

8 


: Set the type of sort to record so that SORSSKEY_SUB doesn't screw up. 
CTXCCOM_SORT_TYPE] = TYP_K_RECORD; 


Get the merge order. 


CTXCCOM_MRG_ORDER] = .CTXCCOM_NUM_FILES); 
LF gc TXCCOM_MRG_ORDER} EQL 0 


BEGIN 
IF NOT NULL. (MERGE _ORDER) 


CTXCCOM_MRG_ORDER] = -MERGE_ORDERCOJ; 
IF .CTXCCOMTMRG-ORDER] EQL 0 OR 
“CTXECOM"MRG_-ORDER] GTRU MAX_MERGE_ORDER 


RETURN__( SORSSERROR(SORS_BAD_MERGE) ); 
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aFI 


Get the LRL value if specified. 
if NOT NULL_(LRL) 
THEN 


MEW 


BEGIN 
CTXCCOM_LRLJ = .LRLCO]; 

RIF 1*SFIELDEXPAND(COM LRL,2)=-1 GTRU MAX_REFSIZE %THEN 

JF -CTXCCOM_LRLI GTRU MAX_REFSIZE THEN RETURN__(SOR$_BAD_LRL?; 
END; 


Save the address of the equal-key routine 
iF NOT NULL_(USER_EQUAL) 
THEN 


PXEXPEDQD_DM AMI Se 


het eet PP RPP NEP As AH o 


BEGIN 
CTXECON EQUAL] = .USER aT 
IF TESTBITSC(CTXCCOM_NODUPS § THEN SORSSERROR (SORS_NODUPEXC) ; 
Ag siataataaiei COM_STABLEJ) THEN SORSSERROR (SOR$_STABLEEXC); 
ELIF .CTXCCOM_NODUPS) 
THEN 


IF TESTBITSC(CTXCCOM_STABLEJ) THEN SORSSERROR(SOR$_STABLEEXC); 


Indicate whether the keys in the specification text should be ignored 
if NOT NULL_(USER_COMPARE) OR NOT NULL_(KEY_BUFFER) 
CTXCCOM_OVR_KEY) = TRUE; 


: Process the specitication file or specification text 
ZIF NOT HOSTILE 
ZTHEN 
IF .CTXCCOM a DDB] NEQ 0 _OR 
-BLOCKCCTXCCOM_SPC_TXTJ, DSCSW_LENGTH; ,BYTE] NEQ 0 


SORSSSPEC_FILE(); 
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2FI 


PAE EE WWIII OPN PONOPUNOPUN) 2 SS OO 


EN 
OR .OPTIONSCOPT_MULTI] OR 


N 

BEGIN 

| Now that we know the pad character, process EBCDIC/DEC_MULTI. 
LOCAL 
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! format nodes for record sorts). 


COM_LAL is age known until after the snot files are opened. 

COM_LRL_OUT is corculates by —' process ng (and depends on COM_LRL). 
¥ n he gutpus ile. 

COM-MINVFC is calculated after opening the output file. 

COM_MINVFC is used by key processing. 


Rather than split SORSSOPEN ond SORSSKEY_SUB into two pieces each, and 
call the pieces in the appropriate order, SORSSKEY_SUB is called from the 
middle of SORSSOPEN. 


The requirements on the routines are as follows: 
Before rey, SORSSKEY_SUB, SORSSOPEN must set COM_LRL and must set 
COM MINVFC as large as may be needed. 
SORSSKET_SUB must set COM_LRL_OUT. 
rs 


er: 
After calling SORSSKEY_SUB, SORSSOPEN may decrease COM_MINVFC, but 
if it was non-zero for SORS$SKEY_SUB, the VFC area must still be 


allocated (otherwise, the input routine will access violate). 


SORSSKEY_SUB, when saving the VFC area, must first check whether 
the storage is, indeed, allocated. 


Or: 


The effects of this method are as follows: 

The high-water mark on the amount of stack space used is higher. 

Some performance will be lost if the internal format records retain the 
VFC fields even when they are not really needed. This occurs if 
the input files have VFC format, and the output file is overlaid, 
and the output file does not have VFC format. This should be rare. 


The user must have specified the keys by either: 
1. Passing a user key comparison routine. 
¢: pores the key buffer information, or 
- Using the specification file to specify the keys. 


These are used in the above order. 


We want to process the keys sometime after spenteg the input files, 
but before o ening the input files. Set up a routine and a parameter 
! that SORSSOPEN will call at the appropriate time. This will: 

Build the comparison routine, and the input and output conversion 

! routines, if needed. 


DOKEY_RTN = SORSSKEY_ SUB; 
DOKEY-PRM = 0; 
IF NOT NULL _ (USER_COMPARE ) 


BEGIN 
CTXCCOM_ COMPARE) = .USER_COMPARE ; 
IF NOT RULL_(KEY_BUFFER) THEN SORSSERROR(SORS_KEYAMBINC); 


EN 
LIF NOT NULL_(KEY_BUFFER) 
HEN 


b+ 4 


ss 


m1 
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! Open the input files and output file now. 
! Since the longest output record length is needed before the output file 
' is created, pass a routine and parameter that will calculate it. 


13 ? corey Jan = KEY_BUFFER(O); 
1? f ZIF NOT HOSTILE ZTHEN 
i$ 7 -CTXCCOM_RDT_SIZJ NEQ 0 
18 74 THEN 
e BEGIN 
1 55 i Use the keys as specified in the poect ication file 
¢ 4 Note that the parameter to SORSSSPEC_KEY_SUB will be ignored. 
4 DOKEY_RTN = SORSSSPEC_KEY_SUB; 
5 END 
§ ZF I 

ELSE 
: BEGIN 
: ; Use the default key specification (SORSSKEY_SUB can figure it out) 
é 0; 

END; 

39 


i The parameters to SORSSOPEN are a routine and parameter that gets called 
! after opening the input files, but before opening the output file. 


' 
! 
1 
' 
' 
' 
i 
if HOSTILE 
IF .CTXCCOM FILE ALLOC) EQL 0 THEN CTXCCOM_FILE_ALLOC) = DEF_FILE_ALLOC; 

reise AMS = CAC_CTXREG(.DOKEY_RTN, .DOKEY_PRM™); 

STATUS = SORSSOPEN( .DOKEY_RTN, .DOKEY_PRM ); 


IF NOT .STATUS THEN RETURN (.STATUS); 
SORSSDEALLOCATE (ZUPVAL+8*Z0PVAL, CTXCCOM_PASS_FILES)); 


FW "OOOO Vi FwnO 


Allocate space for the record header buffer (VFC area) 
This is done here, rather than in SORT_MERGE, since SORT_MERGE need 
not be called for merges. 


i 
i 
' 
if .CTXCCOM_MAXVFC) NEQ 0 
THEN 


PAA 


BEGIN 
CTXCCOM_RHB_INP] = ett ranctryl bh 


oRhS grap coe MAXVFC 
Us COM_RHB_OUTJ = SORSSALLOCATE(.CT 


); 
XCCOM-MAXVFCJ); 


MEW —OOOnNOuU 


If the user specified fixed-length records make them fixed-length 
oe ortecs of this ts that no length will be stored in the internal 
ormat nodes. 
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%1 USED PTIONS AND MASK_(OPT_FIXED)) NEQ 0 ZTHEN 
ZERROR('TRis should be doné before calling SORSSKEY_SUB') 
IF NOT NULL_ (OPTIONS) THEN 

IF PTIONSCOPT FIXED) THEN 

i TXLCOM_VA 


EGIN 


i if COM_VAR was set by SORSSOPEN (variable length files), complain. 
f COM AR was set because the record interface is being used on 
nput, just clear COM_VAR. 


if cTACEON Wt wn, FILES] NEQ 0 THEN SORSSERROR(SORS$_VAR_FIX); 
Uy COM~SRL sett ion. LRLI; ! Performance only -- affects tree size 


aI 


: For a non-record sort, create an array containing addresses of the DDBs. 
HFC TXCCOM_SORT_TYPEJ NEQ TYP_K_RECORD 


L 

+ nee vee BLOCK, : | ime to — 

cTxCCOn rare ARRAY =. Ve SORSSALLOCATE CHUPVAL” : retrxccom. NUM_FILESJ); 
DECR’ [ "FROM =UTxCeom, NUM_ FILESJ-1 TO 0 DO 


Vv ie 8 pid) = PCBASE_]; 
P = ,PCODB_NEXT); 


END; 
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ene e GLOBAL ROUTINE SORSBEGIN_SORT 
1 6 KEY BUFFER: REF $3 b 1,WORDJ, ' Key description buffer 
1 RL: REF VECTORL1,WORDJ, ! Longest record length 
1 OPTIONS: REF BLOCKCIJ, ' Options 
1 FILE_ALLO REF VECTORC1,LONG), ! Input file(s) allocation 
1 8 USER_COMPARE, ! User comparison routine 
1 USER_EQUAL, ! User equal-key routine 
1 7 SORT_TYPE: REF VECTORC1,BYTE), ! Type of sort process 
1 7 WORK_FILES: REF VECTORL1,BYTEJ, ! Number of work files 
: q CONTEXT: REF VECTORL1,LONG ! Context longwor 
= 
7 ae 


FUNCTIONAL DESCRIPTION: 


This routine initializes sort. 

Input and output files are opened. 

Key definitions are processed. 

The replacement selection tree is initialized. 


FORMAL PARAMETERS: 


KEY_BUFFER. raw Key buffer address 
LRL.rwu.r Longest record length 
FILE_ALLOC.rlu.r Input file allocation 
WORK_FILES.rbu.r Number of work files 
SORT_TYPE.rbu.r Type of sort (record/tag/index/address) 
USER_COMPARE .rzem.r User-written comparison routine 
OPTIONS.rlu.r Option bits 
USER_EQUAL.rzem.r User-written ter routine 
CONTEXT. ra.r Longword pointing to work area 
ALL parameters are optional. 

4 IMPLICIT INPUTS: 
NONE 

IMPLICIT OUTPUTS: 

NONE 


ROUTINE VALUE: 
Status code. 
SIDE EFFECTS: 
The working set is extended and the virtual memory is allocated. 


BEGIN 
: Process the parameters 
BEGIN_SORT_MERGE (SORT) 


Be Ge Se Se Be Be Ge Fe Ge Ge Ge Fe Se Se Ge Se Ge Ge Ge Se Ge Ge Ge Fe Ge Ge Ge Se Ge Ge Ge Se Ge Se Se Fe Ge Se Ge Ge Ss Ss Se Se Se Se Se Se Se Se Se Se Se Se tee — 
a ee ee a a a a a a ee ae a ee a a a a a dd 
St at el at et et he ee 
DPREEQD Press & BB BB BE EE EAA WII inopopopnornopopoponory. 
WN OC OONOAVUESWUN $C DONA UNE WIN 9 OBNAUE WN O OD NAUESWN OO ONOUS WOO 
a ee a ee a ce ee ce ee ee a ee oe ee ee ee ce ee ee ee a ee i ed a i ec ce ee ee ae a ce eh ce ee ee ee ed ee ed ee ed 
PPV PVP PS SITS SISTINE Be ES EE EE PPP PPL PPP PPP PPP PPP PPP PPP PPE ES 
DONA NEW 9 ODNAUES WN 9 OD NA UNE WIN OS OD NAU EWN OO ODNAOYV FUN" OVOOVNOuUlw 


tt | S “QOOCOOODOOOOOCOOO00000O0 OOM cocommmDmcn VIN 
RoPORonOony tt tt tt tt tt 


z 


12 
SORSINTERFACE 1$-Se0-1964 00:24:14 YaN-H) BLieg=32 v4.g-742, age, 39 


; 1465 1520 

: 146 1521 

: 1469 1 ¢ ' Determine amount of memory available for the replacement selection tree, 
3 1ee8 : ? based on the working=-set extent, and initialize the tree. 

; 129 15325 BEGIN 

: 1471 1 § LOCAL 

; Vote 1 WSSIZE 

: 147 1508 WSLIMIT, 

> 1474 1529 MEM; 

3; 1475 1530 ! STATUS = SADJWSL(PAGCNT=0, WSETLM=WSSIZE); 

3 1078 1531 : IF NOT .STATUS THEN RETURN (SORSSERROR (SORS$_SHR SYSERROR, 0, .STATUS)); 
3: 147 P 1 § STATUS = SADJWSL(PAGCNT=2X°7FFFFFFF', Woe TLRSUSL INIT 

3; 1478 1 RIF HOSTILE ELAN ZTHEN , ELAN = .CTXCCOM_CTXADR) 2FI ); 

: 1479 1534 IF NOT .STATUS THEN RETURN, _(SORSSERROR(SORS_SHR_SYSERROR, 0, .STATUS)); 
; 1480 L 1535 XIF TUN_K_PURGWS 

3 1481 U1 § XTHEN 

; 1e56 u 15 SPURGWS CINADR=UPLIT(O,2X"7FFFFFFF')); 

: 148 1538 XFI 

> 1484 1539 ! 

3; 1485 1540 ! Call TREE_INIT, passing the number of pages it may use, 

: 1O58 130) } and the expected number of input records. 

3; 1488 1303 ! Note that we effectively add only 1 to the average record Length for 
>; 1489 1544 ! variable-length records. This has the effect of slightly increasing 
; re 1302 our estimate of the number of records. 

3 1098 1329 STATUS = SORSSTREE_INIT( 

3 149 1548 MAX(.WSLIMIT = TUN_K_NONTREE, TUN_K_FALLBACK), 

> 1494 1549 3 .CTXECOM FILE ALL Ot * COM_K.BPERBLOCK * 2 / 

3 1495 1550 4 CIF NOT .CTXCCOM_VARI 

3: 1496 1551 4 THEN 2*.CTXCCOM_LRLI 

3 1497 1326 3 ELSE .CTXCCOM_LRLJ+.CTXCCOM_SRLJ + 2)); 

; 1498 1553 3 IF NOT .STATUS THEN RETURN__(.STATUS); 

3 1499 1554 § ND; 

; 1500 1555 

; 1501 1556 § 

; 1206 1557 RETURN__(SS$_NORMAL) ; 

; 150 1558 1 END; 


~-EXTRN SYSSADJWSL 


087c¢ 9000 .ENTRY SORSBEGIN SORT, Save R2,R3,R4,R5,R6,R11 : 1463 
6 FD49 «OCR OO9 02 MOV SORSSERROR, R6 ; 
E 14 ¢ 0 SUBL2 #20, SP : 
10 AE D4 A CLRL TX. > 1515 
6D O3F8 CF 0 MOVAL 59$7~(FP) : 
09 6¢ 1 CMPB. ss APS, «#9 : 1519 
6 iF 0001 BLSSU : 
53 24 aC 009 1 MOVL ONTEXT, P__ ; 
0 1B BNEQ : 
- 53 00000000' : i 1 $: MOVAB SOR_CONTEXT, P__ ; 
F 6 i. 28 BBSS_ #07 (P__J> 7$ 
4 6 1 ¢B C BICL3 #1, (PT"), CTX 
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SORSINTERFACE 16-Sep-1984 00:26:14 AX-11_ Bliss-32 V4.0-74 Page 42 
$00 2000 atiaet 1 00:96 de erat se sre SORINTERF .B32; 1 9° 48) 
06 oc Bc 02 £0 0018 BBS #2, @OPTIONS, 33$ ; 7 
011¢ cg p 18 Ist 4(CTx) : ; 
52 0124 cB 9— 001BB 33$: MOVAB 292(CTX), R2 : : 
s : Om : 
62 6 F 3C 001 MOVZWL #1536, (R2) : : 
9008 F 169 PUSH 5 296(CTX) : 3 
DD 001CD PUSHL R : 7 
000000006 90 FB OOICF CALLS #2, LIBSGET_VM : 7 
4 D 106 MOVL R STATUS : 7 
Oo 4 €8 001D BLBS STATUS, 34$ : 3 
2 : : 
oo1c11e4 BF DD 166 PUSHL H859540 : 3 
66 3 F 166 CALLS #3, SORS$SERROR : 3 | 
012¢ «CB 0128 CB 62 C1 OO1E 348: ADDLS (Re) e96( CTX) 300(CTX) : F 
08 AE O12c = CB 0128 CB C3 OO1F1 35$:  SUBL 33 (€TX), 300(ETX), COLL_DESC : 3] 
OC AE 1 CB DO OO1FA MOVL 96(CTX), COLL_DESC+4 : ; 
08 AE 9F 00200 PUSHAB COLL_DESC ; 3 | 
000000006 00 o1 FB 0020 CALLS #1, COLLSINIT : 3 
54 0 00 0020A MOVL RO, STATUS : : 
78 54 £9 0020D BLBC STATUS, 40$ ; 3] 
OC oo, tO HHH PB aaw Ea tBEHONS. 368 : : 
000000006 00 01 FB 00 18 CALLS #1, SORSSDECM : 3 
1F 11 1F BRB $ ; ; 
0c 0c BC 01 4 00 4 36$: BBC #1, QOPTIONS, 37$ : 3 | 
08 AE SF 00226 PUSHAB COLL : ; 
000000006 00 oi FB 00 CALLS #1, SORSSEBCDIC : 
011¢ CB OD $6 $ 37$: PUSHL 284(CTX) : : 1 
OC AE 9F 00 36 PUSHAB COLL_DESC : 7 
000000006 00 03 FB 0 CALLS ie. TOLLS$BASE : 3 1 
54 40 38$:  MOVL RO, STATUS : 31 
42 54 £9 0024 BLBC STATUS, 40$ ; : 
6E 01 80 00246 MOVW #1, PAD_CHAR : 71 
02. AE 0101 cB 90 0 49 MOVE, ef (CTXD, PAD_CHAR+2 ; 3 | 
Oc AE OF § 51 PUSHAB COLL_DESC : 2 
ly 0 08 less GALS Ea : : 
27 A 8 § E BLBC STATUS 40$ : 3 | 
12 0080 cB E9 ? BBC \eaccTho, 39$ ; 
oc A oF PUSHAB COLL_DESC : : 
000000006 90 08 CALLS #2, COLLSTIE_BREAK ; ; 
10 4 7 BLBC STATUS, 40$ : : 
gt Sire soe: Fit Eat a : : 
000000006 90 ; F 7 CALLS ie. COreSRESULT : : 
4 D MOVL R STATUS : ; 
03 odd 5 40$: BLBS status. 4 ; : 
1 AE C 41$:  ADDL2 COLL_DESC, 296(CTX) : ; 
, g iB 8 AE 8 MOVL  COLL“DESC#4, 104(CTX) : : 


SORSINTERFACE 18-56 Sep-1 4:16 AX-11 Bliss-32 v4.0 P 43 
9002000 eS oe ts rin ya rte Po Pg Ee et Po 29° 45) 
59 AB OO 99 42$: STB B9(CTX) ; : 
33 1 9 BNEQ 4$ : : 
0080 ce : 9 BISB2 #2, 128(CTX) : ; 
58 AB A CMPB 0s BBC CTX), #1 : : 
10 of BA 80540 Beets BTS act - ; 
86 oorcsose BF BO O0¢AD OVL 116678867-RO ; : 
0084 ; B3 0¢B5 438: TSTy  133¢CTX) ; 
10 1 8A 002BB BICB2 #1, acrx : ; 
$6 001c8074 BF i BF MOVL 116678927-RO : : 
53 000000006 09 E 1 44$:  MOVAB SORSSKEY_SUB, DOKEY_RTN : : 
ps 0 C CLRL  DOKEY_PRM : : 
2 15 4f 0090 sissu ss 
1 AE 8 Bene SR ; 
6B 14 aC p0 00 DA HOVE USER. COMPARE, (CTX) : 3 
a he 3 EGS : ; 
zr } 0 EE BEQL 46s «A7$ : : 
001¢8134 &8F DD 002E7 PUSHL #1868084 : : 
66 01 Fe 0 ED CALLS 1, SORSSERROR : 
a 
04 AC 03 8 rg TSTL 4 (AP) : 
06 13 O02F BEQL ©: 46$ ; 
52 04 aC 00 00 FB ROVL KEY BUFFER, DOKEY_PRM : 
core FT Hi es le agen : 
53 000000006 3 9 0 07 po ROVAB ttt KEY_SUB, DOKEY_RTN 
cooneoos a ee : 
9? 30 09 031 MOVL STATU : 
4 031C¢ BLBS srArus. 48$ ; 
D1 31 O031F BRW 7$ : 
i oF 0 48S: PUSHAB nec 
2 §B 0 CALLS SORSSDEALLOCATE : 
fe 98 Dass Bede 13gce 
0 oD § PUSHL a0 : 
1 FB CALLS #1, SORSSALLOCATE : 
0 p A VL RO 140(CTX) : 
B OA F MOVZBL 130(CTX), -(SP) : 
i F 44 CALLS #1, SORS$ALLOCATE ; 
0 48 MOVL RO. 144(CTX) : 
AB ) 4D 49$:  CMPB {crx #1 ; 
AB 9, MOVZBL 89(CTX), RO : 
02 78 #2, RO, -(SP) : 


rekon we 


000000006 


10 


08 


000000006 


we 
oo 


F843 


04 
7FFFFFFF 


001C11B4 


0084 


02 
000000C0 


40 


nun 
se” 


for 


COMMS NO FIO OOOUWJVQOwUMovnonnovVlemmonoonooo-ovVc" 


OD NOVO WDOMMNDNOI EF SPOOFS ONO CONMIOVMOOPMAS UVP OPOUWO 


VO FH LOM NEMO NON —OO9 —-V0-TBF WANS Lov sMrTvrv@gawao— 


00 


Wn > OOw™ OM DS NWO ANOS Dm" WoL - "9 OO me OO FrNWwZOOLS "a —— 


@Moo7o 
WOCO 2®OCOCOL OP & FOP OOD F FF [FW “OC LOOMDLDWS £0 FP OOWO"FOOr—POOW 
COOOCCGCOGCOGOOCOOCOCOOGCOCOOCSOSOSOOOOCOOOOOCOSCOOCOOSOO OOOO OOOOOOOOOOOOOOOOO 


SOOSOCOCOCSOOCOSOOOO OOOO OSOSOSSOSOSOSOSOSOSOSSCCOCOSOOOOCOOCOOCOOOOOOOOOOOoOOO 
Sr BB BE BEE SF PWN NANNNNNAAAAANWWNNAAAA ANNAN AAANWI AANA 


Wwom—oon 
Sacdoo sobs 


oOrurcr > YP 


50$: 


uw 
nm 
AeA 


53$: 


54$: 


55$: 


56$: 


57$: 


58$: 


59$: 


p=198e 19:40: 


seve mao 
4(RO), 
Hl Ls 

-(SP) 


:14 AX-11 Bliss-32 V4.0-7 Page 44 
244 SORT32.SRCJSORINTERF . 3 2:1 (15) 
", SORSSALLOCATE : 
164(C; : 
b(CTXD P : 
(CTX), I : 
1$ : 
8(P), R1 ; 
P, (VSCR1J : 
(P), P : 
Q 308 + 1533 
¥ 519483647 : 
#2, SYSSADJWSL ; 
R STAT : 
STATUS, 53$ + 1534 
#1 actx__ : 
STATUS : 
= (SP) ; 
#1839540 : 
#3, SORSSERROR : 
#19 168(CTX), R2 + 1549 
132¢CTX), R > 1551 
#1, 128(ETX), 54$ : 1550 
(RO), R1 : 1551 
#2, R1 : 
R1, RO F 
55$ F 
(RO), R1 + 1552 
2(R0S, RO : 
R1, RO : 
#2, RO 3 
RO, R2, -(SP) : 1550 
#192, WSLIMIT, RO : 1548 
(SP), #63 : 
#64, (SP) : 
#2, “SORSSTREE INIT ; 
RO, ST 3 
STATUS 3s : 1553 
STATUS. RO ; 

: 1557 
a6 oo ttTx) : 
304(CTX), RO Saas 

3 1838 


AP) 
in COND_HAND 


SINTERFA 1h=455-1986 00:26:16 VaKet =32 v4.0-7 Page 45 
+e ease 188e FB: Fbike «| Pawar doOshessoe tele 7ks. 9¢ 483 


; Routine Size: 1060 bytes, Routine Base: SORSRO_CODE + 0388 
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SORS INTERFACE 18-Se 1984 24:14 AX-11 Bliss-32 V4.0-74 Pa 46 
v0e2000 12-8081 382 99: Fbike SORT32.SRC SORINTERF B92: 1 9° 16) 
GLOBAL ROUTINE SORSSORT_MERGE ! Finished 
FONTERTs REF VECTORC1,LONG) ! Addr of context longword 


> 
+ 


FUNCTIONAL DESCRIPTION: 
This routine sorts the file. 


For file interface, the input files are read and released to the sort. 
For record interface, the records have already been released. 

In either case, the replacement selection tree is flushed, and the 
morge asses on the runs are done until a single merge wil 

as ng e run. At this point, the following occurs: 

For file interface, the output records are reformatted, and directed 
to the output file. For record interface, we return to the user, who 
can call RETURN_REC to get the sorted records. 


FORMAL PARAMETERS: 
CONTEXT. ra.r Longword pointing to work area 


l produce 


FUSUSVSUSUSUSUSISIS ISIS SISISIS 


POIPOPORIPORURYD — tS 


SS SONOS UN OOD NAMEN ODS 


ALL parameters are optional. 
IMPLICIT INPUTS: 
NONE 
IMPLICIT OUTPUTS: 
The input files and output file are closed. 
ROUTINE VALUE: 
Status code. 
SIDE EFFECTS: 
NONE 


WAIWIPoNoT 


rata tee) e} 


F at at tl ek tt et ee hb oh) 


BEGIN 
F IRSTPARAMETER_ (CONTEXT); ! Required by PRESENT_ and NULL_ macros 


LOCAL 
DDB: REF DDB_BLOCK, 
FAB: L 
RAB: REF SRAB_DECL; 

BUILTIN 
TESTBITCC; 


CONTEXT_(CONTEXT, SORS$_SORT_ON); 


IF TESTBITCC(CTXCCOM_FLO_SORTJ) THEN 
IF .CTXCCOM_OUT_DDB) EQL 0 THEN CTX[C 


BDOOOOSO0 OO OOO OO OO C8 0000 00 00 09 09 09 09 09 SINSININI NINN NINE AAA AAOAAAOU 


r to DDB 
or closing files) 
r to input or output RAB 


' Pointe 
' FAB (f 
! Pointe 


NOUS WN "OO OONOU SW O0OOn 


PUPP SII 


RETURN__ (SORS$_SORT_ON); 
OM_FLOTRETURN] = TRUE; 


Bo Se Se Ge Fe Ge Se Se Se Be Se Fe Ge Se Se Se Se Fe Ge Ge Ge Se Ge Ge Ge Fe Ge Ge Ge Se Ge Se Se Ge Se Fe Ge Se Ss Se Se Se Se Se Se Se FHSS Ss Se Ss S58 es Sees ese 
a ee ce ed ee ee me a ee ec ee ee ee ee ee ee ce ed ee ed ed 8d ed ed 


QPP PU PV PVP PUDUPULVSUDULUSUSE SUSE SUSUS USSU STITT II 
ee ee ee ee ee eee 


DD_DPDP DPD DED DP DEDEDE DEDEDE DEPP VV VSS PUSS SUSU TSS SUSI ISIS SIS ISIS ISIS ISIS 
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. 
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7 
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. 
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. 
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- 
° 
. 
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. 
* 
. 
oe 
° 
° 
. 
e 
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° 
. 
* 
. 
. 
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oO 
ARWH HOGS VE MRA OOO IE MAE MG PODS GRMN OOO VOOR ON OO I ROMO Oe 
POPSPOPOPOMONOPOPIPIPIPUNNIRD 2 8 9 tt tt 


—OO0@ 
tt I IOO’ 
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AX-11 Bliss-32 MP ets Page 47 
SORTS2.SRCJSORINTERF .852;1 (16) 


; 1368 1616 SIF NOT HOSTILE %THEN : 
i 64 1618 ' Initialize FAB (used for closing files) 3 
: 1 66 1620 CHSEILL (0, FABSC_BLN, FABCBASE_]); ; 
: 156 16 ABT FABSB BLN ="FABSC_BLN; ; 
H : re 1? § FABLFABSB_BID) = FABSC_BID; : 
21 % 1604 ; 
5 1 4 1 5 Read all the input files : 
; 1 ie 16 $ DDB = .CTXCCOM_INP_DDB); ! Point to first DDB : 
: ' f 16 § DECR I FROM . CTXCCOM_NUM_FILESJ-1 TO 0 DO : 
: 157 1630 : 
§ } r 19 1 Store address of the current DDB, and get a pointer to the RAB. : 
; 1379 1838 CTXCCOM_ INP_CURR] = DDBCBASE_}; : 
3 1280 103¢ RAB = DBBCDBB_RAB+BASE_J; ; 
: 158 16 : 
: 1888 1637 ' Clear the VFC area. : 
: 1584 1638 ! This area is cleared on a per-file basis, so that extra junk from $ 
3: 1585 1639 ! the previous file is not left around, and copied to the output file. 3 
; 1586 1640 ! We must clear it, as the input conversion routine may reference it, F 
: 13 7 1641 i even if RABSL_RHB doesn't. : 
; 1389 1848 CHSFILL(O, .CTXCCOM_MAXVFC], .CTXCCOM_RHB_INP)); : 
: 1591 1645 

3 1236 104g ' If we need the VFC area for internal nodes, 

3; 159 164 !' then set RABSL_RHB to potas to the VFC area. 

3 1594 1648 ! Check to see whether the VFC area is solely for the use of the 

3 1233 1983 output file; if so, don't point the RAB to it. 

: 1597 1651 RABCRABSL_RHB) = .CTXCCOM_RHB_INPI: 

; 1398 165¢ IF .CTXCCOM_MINVFC) EQL O-THEN RABLRABSL_RHB) = 0; 

: 1600 1654 

; 1608 1686 } Get all the records from this file 

> 160 1657 & BEGIN 

: 1604 1938 4 BUILTIN RO; 

3: 1605 1659 4 WHILE TRUE DO 

1809 1681 6 FF BEGIN 

: 1608 1996 6 IF (RO = $GET(RAB=RABCBASE_J)) THEN TRUE 

3: 1609 166 § ELIF .RO Fat R 

3 1610 1664 THEN (RAB RABSW_RSZJ = .RABCRABSL_STVJ; TRUE) 

3 191) 1992 6 gL3e FALSE 

iis ser 8 = 

> 1615 1869 6 LOCAL 

3 1618 1670 6 D: BLOCK(C2); ! Descriptor 

: 161 1671 6 MACRO 

; 1618 1672 6 LENW = 0,0,16,0 %, 


12 
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19 
0 


LENL = eo e . i, 
ADDR = 9:8-33°0 3; 
CTXCCOM_INP_RECNUM] = .CTXCCOM_INP_RECNUM) + 1; 
CHECKPOINT _COUNTDOWN(); 


Create a descriptor for the input record 
DELENL = ,RABCRABSW_RSZ); 
— = ,RABLRABSL_RBF J; 


BEGIN 

Check the Length. 

if .DCLENW) GTRU .CTXCCOM_LRLJ 

THEN 
BEGIN 
; If too long, complain and shorten the record 
RO = SORSSERROR(SORS_BAD_LRL, 1, .DCLENLI, 

$_SHR READERR 1, DDBCDDB_NAMEJ); 

DCLENW)] = .CTXCCOM_LAL: 
TRUE 

END 


ELSE 
-DCLENW) GEQU .CTXCCOM_SRLJ 


PARAS AAAAAAAAAS 


Ww 
MEWN (OO ONA YL FW OOOO WwW 


THEN 
BEGIN 


: Release the record to the sort (also converts the record) 
RO = SORSSTREE_INSERT(DCBASE_)); 


ELSE 
BEGIN 


eee Ft OF tet eo DAY HAE 8 tte try te et SMP! 


NOUS WN —OOONOUE WN —O0O@ 


If too short, complain and ignore the record. 


By putting this code after the code to call TREE_INSERT, 
; 3 branch byte displacement after TREE_INSERT suffices. 


RO = SORSSERROR(SOR$_BAD_SRL, 1 DCLENLI, 
S H a poet ons NAME }); 
CTXCCOM_OMI_RECNUAI = .€TXCCOM_OMI_RECNUM) + 1; 


END 
ELIF 
nn EQL RMSS_RSA ! Record Stream Active 
ano” = $WAIT(RAB=RABCBASE_}) ! Wait until not so active 
.RO EQL RMSS_RLK 
THEN 
BEGIN 


SS 35 33 35 SESS I 33 33 38 88 Se 


Sa Se Se Seo Be Se Se Se Be Se Se Se Se Se Se Be Se Se Se Se Se Ge Se Ge Fe Se Ge Ge Se Ge Se Se Ge Se Se Fe Se Se Se Se Se Se Se Se Se Se Se Se See Se Se se Fe se seas 
me ee ek ak a a i a kk ek at at ot 2 = = = = = 8 2 YS I 
MEwWN—oO 


i ee el ee ae ee ee ee ee ee a ea ad 
SNS SSN NNN NIAAA AAPA AAA AAAAAAAAAA AAAI AAO 


DDD DMNA IND SISSIES SII 09 09 09. 09 09 09 09 09 SII PAA AAA OOOO 


DWONOAULS WI O O00 


Roronononononornononys 


GOA 
ANN 


n 12 Ech 
voe-000 1erSep=198e $S:fdsee — ESGars2eSneSsoninteRr 082; Peet 16) 
7 


SS 


$$; 
S(RABLRABSV_RRLJ) THEN EXITLOOP; 
RAREADERR AND NOT STSSH_ SEVERITY OR STS$K_ WARNING, 
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Check for the expected status 
if .RO NEQ RMS$_EOF 


RO = SORSSERROR(SORS_SHR_READERR, 1, DDBCDDB_NAME], 
-RABCRABSL_STSJ,~.RABLRABSL_STVJ); 
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END; 
! ALL records have been read from this file. Close the input file now 
(unless we are doing a tag sort, because we will reaccess the file). 
IF .CTXCCOM_SORT_TYPE] NEQ TYP_K_TAG 
; CLOSE_FILE(FABCBASE_J, DOBCBASE_}, SORS$_SHR_CLOSEIN) 
BEGIN 


i We will access this file later by RFA. 
Also, the VFC area (if any) will be needed. 


DDBCDDB_RAB+RAB$B_RAC] = RABSC_RFA; 
bbe DDB-RAB+RABSL_RHBJ = .CTXCCOM_RHB_INPJ; 
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Advance to the next file 
DDB = .DDBCDDB_NEXT); 
END; 
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: Now we've read all the input files. 
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! Call another routine to get all the records from TREE_EXTRACT, and to 
! output ene records. If the record interface is being used on output, 
; this routine will do nothing. 
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5 a 


1794 

1736 Get a pointer to the RAB 

7 RAB = DDBCDDB_RAB+BASE_]; 

8 nase 

it ; Set RABSL_RHB to reference the VFC area 
508 RABCRABSL_RHB] = .CTXCCOM_RHB_OUT); 


aR 


! Allocate a record buffer area. 
! The length and address are stored in the USZ and UBF fields, 
so that FREE_DDBS can release the memory. 


RABCRABS$W_USZ] = CTXCCOM LRL_OUTI; 
RABCRABSL_UBF] = SORSSALLOCATE( .RABCRABSW_USZJ); 


! Initialize the descriptor for the returned record buffer. 
! Put the record address into the RAB, so RMS knows where it is. 
i The record Length is written into the RAB by SORSSTREE_EXTRACT. 


' 
DELENL] = .CTXCCOM_LRL_OUT); 
DCADDR] = RABCRABSC_RBF) = .RABCRABSL_UBFI; 


OO ONAOVUESWN HOOD NOULS WN —O0O~ 


Get all the records from the sort, and write them to the output file. 


BEGIN 
BUILTIN RO; 
WHILE TRUE DO 
BEGIN 
CHECKPOINT_COUNTDOWN() ; 
Get the next record from the final merge pass. 


RO = SORSSTREE EXTRACT(DCBASE_J, RABCRABSW_RSZJ); 
IF NOT .RO THER EXITLOOP; 
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Output one record 


BEGIN 
i Complain about the Length problem 
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5 
8 ! 
: 530 WHILE TRUE DO 
9 o36 IF (RO = $PUT(RAB=RABCBASE_))) 
0 89 THEN 
1 Bae aH a 
9k 95 CTXCCOM_OUT_RECNUM) = .CTXCCOM_OUT_RECNUM]) + 1; 
3e7 36 EXITLOOP ! Bon't try again 
i a ELIF 
§ 9 
if 
330 g 


-RO EQL RMS$_RSZ | 
| 
} 


voe-000 1esbet9Ee QR:R4:TE — YASGHL MdeHsBz ater. see 


3S 


~w 


! See if we have ? better guess at the correct length. 
! If not, drop yh s record from the sort. 
! If so, try using it. 


= SOR SERROR(SORS_ SHR_WRITEERR } DDBLDDB_NAME], 
RAB RABSL_S S184 40 RABCRAB BSS Stvi5; 
RABLRABSW_RSZ tai” DCLENW 
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f ERRABERABSW_RSZ) LSSU ptLenv] 
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! Note that in’? would be unnecessary if TREE EXTRACT 
used COM_PAD. 


BUILTIN nae 


PRR OOo 


VCS(ZREF(O), .RO, CTXCCOM PAD] 


REF ( Nu . RABLRABSW_RSZ]), 
(.DEADDR] + .RABLRABSW-RSZJ): RO); 
RABCRABSU_ RSZ) = .DCLENW); 


The aa had potter work a. time, becaus 
! DCLENW) = CTXCCOM_LRL_OUT OUTPUTFABLFABSW_ MRS] 
! 


END ! And try again 
-RO EQL RMS$_RSA 

THEN 

.. = SWAIT(RAB=RABCBASE_J) ! And try again 
-RO EQL RMS$_SEQ 

HEN 


SN SN 


ELIF 


Seeee 
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RO = fr SORSSERROR(SORS KEYED); 
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ee a ad ae ee ed a ee a ee ee ce a ee ee ce a a ed cc ee a ce a ced ee ce ee ce ce ee ee ee ee ee ee ce ee ee ee eed 
a a a a a a a a dd dd 
WOOO WDOOOVODOOODODOOVOOOOOVOOOOOOVOOOVOODOOOOOOOOOWOO 

SAAS BBS BNA NINN NINN NA AA NAA OA NIN NII I-09 09 09 09 09 09 09 09 0909 SI NI NINN NN NNIGINS 


Be Se Se Se Ge Se Ge Se Se Se Ge Fe Ge Ge Se Fe Se Se Ge Se Ge Fe Ge Ge Ge FF Ge Se Ge Fe Ss Ge FFs SH Sse Be Se Se SF Ss Oe Se SH SF Ss Ss Se Se Se Se ee SH Se Sees ee 


887 
4 es CRAB$B_RAC) = RABSC_KEY; ! And try again 
591 ELSE 
+ 5 RO nN = ee gy tlie t's bee SHR_WRITEERR, 1, DDBCDDB_NAME], 
9 6 -RABCRA ABSL_STSJ,~.RABLRABSL_STVJ5; 
3e j eure Loop ! Don't try again 
END; 
3 9 END; 
99 26 
: 37 Check that we got the expected status 
#03 55 IF .RO NEQ SS$_ENDOFFILE THEN SORSSERROR(.RO); 
2$ END; 
5 28 
5 ! Close the output file 
907 60 : 


1 
| 
BEGIN 
Fill the record with the pad character. 
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SORS INTERFACE 18-se =1984 00:24:14 AX-11 Bliss-32 V4.0-74 P 
y042000 ete Pat Pe og ee age 436 
; 1398 i CLOSE_FILE(FABLBASE_J, DDBCBASE_J, SOR$_SHR_CLOSEOUT); 
: 191 19 
; ae 13e¢ } If this was a tag sort, close the input files now. 
: 1318 1988 UF gC TXCCOM SORT TYPE EQL TYP_K_TAG 
: 1915 1968 4 BEGIN 
: 191 19 § 4 
; 1919 1990 4 DDB = .CTXCCOM_INP_DDB); 
; 1913 197) 4 DECR 1 FROM .CTXCCOM_NUM_FILESJ-1 TO 0 DO 
: 19 1398 
: 1? 1 I3re Close the input file 
: 19 § 1976 CLOSE_FILE(FABCBASE_J, DDBCBASE_J, SORS$_SHR_CLOSEIN); 
13 i 1908 ; Advance to next DDB ; 
: 19 1980 DDB = .DDBCDDB_NEXT); ; 
> 1928 1981 4 END; ; 
: 1386 1988 _— 
: 1931 1984 END; ; 
; 193¢ 1985 ; 
: 193 1986 1 END; ; 
.EXTRN  SYSSPUT ; 
07FC 00000 MRG_OUTPUT: ; 
«WORD Save R2,R3,R4,R5,R6,R7,R8,R9,R10 : 1791 ; 
5E A8 AE 9E 00002 MOVAB 98 (SP) SP : ; 
58 0098 CB D0 00006 MOVL  152(CTXS, DDB : 1831 F 
01 12 00008 BNEQ 1$ : : 
04 0000 RET : ; 
0050 «BF 00 6E ; 00 C a0 1$: MOVCS #0, (SP), #0, #80, FAB + 1843 : 
08 A 5003 BF 80 001 MOVW #20483, FAB + 1845 : 
5 14 AB F 1D MOVAB é (RB), R : 1850 ; 
¢ A? 090 CB 00 00021 MOVL 44(CTX), 44(RAB) : 185 ; 
6 a7 OBA ¢ 80 7 MOVW  138(CTX). 32(RAB) : 1862 ; 
7E 0 aA? 3C 0 D MOVZWL 32(RAB), -<(SP) : 186 F 
F796 —sCF 1 FB 1 CALLS #1, SORSSALLOCATE : ; 
24 «AT 0 ! 0 MOVL RO 6 (RAB) : F 
ge 008A C A MOVZWL 138(CTX), D : 1869 
4 AZ 00 0003F MOVL 36(RAB), RO : 1870 
28 A? 2 D a3 MOVL RO, 40(RAB) ; 
4 AE p 4 MOVL RO. D+4 ; 
2 A? 9F 0004B 28: PUSHAB 34(RAB) > 1884 
4 AE OF 4F PUSHAB D : 
000000006 1 JSB SORSSTREE_EXTRACT : 
5 C 7 ADDL2 #8, sp : 
0 5 A LBS. ss RO. 3$ > 1885 
009¢ BRW 10$ ; 
57 DD 00060 3s: PUSHL RAB > 1892 
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SORSINTERFACE 16-Sep-1984 00:24:14 AX-11 Bliss-32 V4.0-74 P 7 
y04-000 1a-Sep- 3B 90:96 SORT32.SRCJSORINTERF .B32;1 age 435 
000000006 00 1 F CALLS #1, SYSS$PUT ; 
8 Hy £8 é BLBC RO 4$ : 
00c0 CB D6 INCL  198(CTX) + 1895 
1 BRB 2$ + 1894 
000186A4 BF 0 D4} f 4$: cMPL RO. #100004 + 1899 
7E 08 ab 16 7B MOVQ 8(RAB), <(SP) + 1909 
4 AB OF OOO7F PUSHAB 4(DDB) : 1908 
1 0D 2 PUSHL #1 : 
001¢10D2 BF ODD PUSHL #1839314 : 
F6CB OCF 3 F A CALLS #5, SORSSERROR : 
bE 22 a7 é F CMW yee” D + 1910 
1A 1€ 00 32 BGEGU 5$ : 1913 
52 of 3 0097 MOVZWL p R2 + 1923 
51 22 =A § 009A MOVZ2WL 34(RAB), R1 : 
52 51 ¢ 0095 SUBL2 1, R2 : 
51 2 AZ 3C OOOA MOVZWL 34(RAB), R1 + 1924 
51 4 AE ¢0 OOAS ADDL 2 D+4, R1 : 
52 0101 CB 60 09 C O0A9 MOVCS #0, (RO), 257(CTX), R2, (R1) : 
22 AZ? oF B60 0008 5$: MOVW 8 34 (RAB) : 1926 
AS 11 00085 6$: BRB 4 + 1897 
000182DA =F 50 D1 90087 7$: CMPL = RO, -#99034 : 1933 
08 12 0008 BNEG 8$ : 
DD 000C¢ PUSHL RAB + 1935 
000000006 00 91 FB 990¢ CALLS #1, SYSSWAIT ; 
000186AC BF 50 1 000CB 8s: CMPL = RO, - #100012 : 1937 
11 12 000D2 BNEQ : 
001C80F2 8F DD 00004 PUSHL #1868018 + 1940 
F67B OCF 01 FB OOODA CALLS #1, SORSSERROR : 
1E AT 01 90 O0DF MOVE #1. 30(RAB) + 1941 
D0 11 00 E3 BRB + 1935 
7E 08 A? 7D OO0ES 9$: MOV (RAB), =(SP) + 1946 
04 AB 9F 000E9 PUSHAB 4(DDB) + 1945 
1 DD OO0EC PUSHL # ; 
001¢10D2 BF DD OOOEE PUSHL #1839314 ; 
F661 —sCF 05 FB O00F4 CALLS #5, SORSSERROR : 
FFF 31 OOOF9 BRW + 1944 
00000870 = &F 50 b OF 10$: CMPL RO, #2160 : 1955 
th dd 001 PUSHL RO ; 
FOE CF 1 FB 001 CALLS #1 SORSSERROR F 
001C105A 8F DD 001 ¢ 11$: PUSHL #1839194 + 1961 
8 pp 11 PUSHL DDB ; 
10 AE F 00114 PUSHAB FAB ; 
F71F cf 03 FB 00117 CALLS #3, CLOSE_FILE ; 
2 58 AB 1 1 CMPB BB (CTX), R2 + 1966 
58 009c 6 ¢B 06 1 MOVL  156(CTX), DDB : 1970 
52 59 Ap A 001 MOVZBL 89(CTX), I + 1971 
13 11 00128 BRB 13$ ; 
001€1052 8 DD 0012D 12$ PUSHL #1839186 : 1976 
8 pp 1 PUSHL DDB : 
10 Ar F 001 PUSHAB FAB ; 
FOFE CF 03 FB 001 CALLS #3, CLOSE_FILE ; 
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SORS INTERFACE 18-5 -1984 00:26:14 AX-11_Bliss-32 v4.0-74 Pa 9 
9042000 13-8081 382 99: 0:44 SORT32.SRCISORINTERF .B32;1 ET vo 
19 z GLOBAL ROUTINE SORSRELEASE_REC ! Finished 
8 DESC: REF BLOCKL BYTE) 
39 CONTEXT: REF VECTORC1,LONG) ! Addr of context Longword 
= 
99 
39 


FUNCTIONAL DESCRIPTION: 


VSSRASLSSE 


Oo 


Pass a record to the sort. 


; 1 1 3 | 
; 19 1 1 | 
; 19 1 1 +4 
: 19 1991 4 2 
; 1940 1 1 if 
: 194) 1993 1! b 
; 194¢ 1 1} : 
1944 1 1 i z 
on ee : 
; 1367 1999 | FORMAL PARAMETERS : i: 
3 1949 001 1! DESC.rab.d Descriptor of the record i 
3 1320 Oe : CONTEXT. ra.r Longword pointing to work area ; 
: 195 004 1 | ALL parameters except DESC are optional. :¢ 
3; 195 005 1! +4 
i 1994 006 } | IMPLICIT INPUTS: 7 
i Be : 
; 1958 g10 | { IMPLICIT OUTPUTS: a 
: 1360 AE tebe 7 
: 196 014 1 | ROUTINE VALUE: 4 
; 196 015 1! 4 
3 1308 618 ! Status code. : 
; 1966 O18 | i SIDE EFFECTS: és 
: 1968 020 1! NONE i 
: 139 092 1 | 7 
: 1971 058 3 * BEGIN i 4 
; 197@ 024 F IRSTPARAMETER_ (DESC); ! Required by PRESENT_ and NULL_ macros | 
: 197 025 LOCAL 3 
; Ione 38 STATUS; : 
; 1976 028 CONTEXT_(CONTEXT, SOR$_SORT_ON); i 
: 13 080 3 | 
; 1379 ° 1 ; Check that we are allowed to get here, and check for DESC present : 
; 1981 IF NOT .CTXCCOM_FLO_RELEASE] THEN RETURN__(SOR$_SORT_ON); 3 | 
; 1986 : IF NULL_(DESC) THEN”RETURN__(SORS$_MISS_PARAM) ; : 
; 1984 2 
3 1985 $ CTXCCOM_INP_RECNUM] = .CTXCCOM_INP_RECNUM] + 1; 24 
3 19 038 CHECKPOINT_COUNTDOWN() ; 2 
: 138 04 7: 
; 1989 041 IF .DESCCDSC$W_LENGTH] LSSU .CTXCCOM_SRLJ i 
. e { 
: 1991 O28 BEGIN :| 
: 1992 044 am 


K 13 
SORSINTERFACE 16-Sep-1984 00:24:14 AX-11 Bliss-32 V4.0-74 Pp 
500.800 13-808-1382 90:96:12 SORT32.SRC Soaintéer 64251 age $9 
; 1334 ‘ } If the record is too short, complain and ignore it 
: 1995 4 CTXCCOM_OMI_RECNUM] = .CTXCCOM_OMI_RECNUM] + 1; 
; 1936 ‘ RETURN. —(SORSSERROR (SRS BAD _SRLI)T 
; 1998 ELIF .DESCCDSCS$W_LENGTH] GTRU .CTXCCOM_LRLI 
3 7 THEN 
; ea § BEGIN 
; Oe 2¢ If the record is too long, complain and use a shorter record 
: LOCAL 
: $005 $7 pcoy's “ESxrroR tRLJ 
3 os : 
; $09 $39 pCi) = eectDstsa POINTER]; 
; ons 060 SORSSERROR(SORS BAD RL. 1, .DESCCOSC$W_LENGTH)); 
3 061 SORSSTREE_INSERT(D(0J); 
: 2010 $06 E 
3: 2011 06 ELSE 
$ og 064 BEGIN 
; 201 065 ! 
: Bie oc8 H Insert the record into the sort tree (this also converts the record) 
; 016 068 SORSSTREE_INSERT (DESCCBASE_]); 
3; 201 069 END; 
; 2018 070 
3 2019 071 RETURN__(SS$_NORMAL) ; 
3; 2020 2072 1 END; 


OFFC 00000 ENTRY SORSRELEASE REC, Save R2,R3,R4,R5,R6,R7,.R8,-; 1988 
R9,R10,R11 3 
SE 0c C2 0000 SUBL2 #12, SP ; 
08 AE D4 0000 CLRL CTX. + 2023 
6D 00B1 CF DE 00008 MOVAL 11$77(FP) : 
02 6C 91 0000D CMPB_ ss (APS, #2 : 2028 
06 1F 0001 BLSSU : 
53 08 AC 09 001 MOVL CONTEXT, P__ : 
07 1 901 BNEQ $ ; 
53 00000000" EF 9E 00018 1$: MOVAB SOR_CONTEXT, P__ : 
08 A : DO OOOIF 28: MOVL P__> CTX__ ; 
19 6 E2 000 BBSS. #07 (P__J7 4$ ; 
5B 63 1 CB 000 BICL3 #1, (PT"). CTX ; 
F 13 00028 BEQL $ ; 
OA 5¢ AB 4 £2 000 BBSS #4, 2 (CTX), 3$ ; 
0130 «CB 1 D 0 MOVL #1. 304(CTXS : 
0c 5c AB 1 F BBS 1° 92¢CTX), 5$ > 2033 
08 BE 1 8A 0003C 3s: BICB2 #1 actx_. : 
001¢802c BF b0 0 4 4$: MOVL #18678207-RO ; 
6¢ § 48 5$: TSTB —s- CAP) > 2034 
1 4A BEQL $ 3 
04 AC D 4C TSTL 4(AP) ; 
OC 12 O004F BNEQ == 7$ : 


SS 


me 206 Oe ee ee ee oe as as a a a a a a a a a a a aa a a a a rr 


SORSINTERFACE 18-50 Sep-1 4:14 AX=1 Bliss -32 V4.0-7 Page 
y04.000 ae tae ts rik SPP etd at 948 
08 1 BA 6$: BICB2 #1 : 
ef O01C80E4 BF 0 Y MOVL +186850677RO ; 
7¢ «AB 6 7$: INCL 124 ( cmH : 
50 04 aC D MOVL DESC RO : 
0086 CB ‘ Bi CMPW 3s (RO). -134(¢CTX) : 
4 : 9 BGEQU : 
00Bc «CB p INCL feeccrn : 
08 BE 1 BA F BICB2 TX. : 
O01C80F8 BF DD i PUSHL Hibs ; 
F598 «CF 1 FB 9 CALLS MT OASSERROR ; 
0084 CB 60 61 7F 8$: CMPW (RO), 132¢CTX) : 
1— 18 9084 BLEQU : 
6E 0084 CB 3¢ 000 MOVZWL i (CTX. ? : 
06 AE oe bd 00 MOVL 4(RO), : 
7E C 99 MOVZWL (RO), matey : 
1 DD 0009 PUSHL : 
001¢8082 8F DD 0009 PUSHL #1867906 : 
F576 —sCF 3 FB 000 CALLS #3, SORSSERROR : 
DD OA PUSHL SP ; 
Q 11 000A RB 10$ : 
DD OOOA4 9S: PUSHL RO : 
000000006 00 16 QOOA6 10$:  JSB SORSSTREE_INSERT : 
5E 04 ¢ SOOAC ADDL us, SP : 
08 BE 01 8A OOOAF BICB : 
5C AB 10 8A 90085 BICB +16 atx) : 
50 0130 CB D0 00087 MOVL  304(CTX), RO 3 
04 000BC RET : 
or OOBD 11$: «WORD Save nothing 3 
50 08 AC 00 000BF MOVL  &8(AP), RO : 
50 04 Ad 00 d0¢3 OVL  4(RO); ; 
FC AO 9F 000C PUSHAB CTX__ : 
1 DD OOOCA PUSHL #1 ; 
E bb 00CC PUSHL SP ; 
7E 04 AC 7D 000C MOVQ 4(AP), -(SP) : 
F456 OCF 03 FB 000D CALLS #3, COND HAND ; 
04 000D RET ; 
; Routine Size: 216 bytes, Routine Base: SORSRO_CODE + OAF1 


<y 


CONTEXT_(CONTEXT, SORS$S_SORT_ON); 


!' Check that we are allowed to get here, and check for DESC present 


413 
SORS INTERFACE 16-Sep-1 1246:14 AX-11 Bliss-32 V4.0-74 P 
y0e+000 ereeen 188s P8:4Gic2 | Hest bob hessae Mtge bS0. 1 age $$ 
: ¢ fe } GLOBAL © ieee SORSRETURN_REC ! Finished 
: 2004 75 1 DESC: REF BLOCKC,BYTE) ' Buffer descriptor 
; 5 1 1 SIZE: REF VECTORG won, : Output length’ : 
: $ f } re REF VECTORL1,LON ! Addr of context longword 
: 20 i 1 lee 
: 20 § 0 1! 
; 8 : 8 1 : FUNCTIONAL DESCRIPTION: 
; $ Get a record returned from the sort. 
; 5 1 | FORMAL PARAMETERS: 
; 2035 bag 1! 
; 20 087 1! DESC. wab.d Descriptor of the record 
; 20 088 1! IZE.waw.r Word to recieve length of record 
: 5 94 : } CONTEXT. ra.r Longword pointing to work area 
3 See 03 : ; ALL parameters except DESC are optional. 
: 206 093 1! IMPLICIT INPUTS: 
3 $28 094 1! 
3 ode 332 : NONE 
; 046 097 1 | IMPLICIT OUTPUTS: 
3; 204 098 1! 
: $09 106 1 i _ 
: 2050 1 1 ! ROUTINE VALUE: 
3 B83 ¢ 1! 
: O28 ? : Status code. 
: 2054 5 1! SIDE EFFECTS: 
; 2055 1! 
: $089 1 i ane 
: 2058 1 ine 
3; 2059 BEGIN 
; 2060 FIRSTPARAMETER_ (DESC); ! Required by PRESENT_ and NULL_ macros 
3; 2061 LOCAL 
5 B08 STATUS; 
3: 206 
: 2064 
: $0e¢ 
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' 

068 ! 
‘534 IF NOT .CTXCCOM_FLO_RETURN) THEN RETURN. (SOR$_SORT_ON); 
a0 IF NULL_(DESC) THEN-RETURN__(SORS_MISS_PARAM) ; 
07 
O78 CHE CKPOINT_COUNTDOWN() ; 

75 
if ' Call TREE_EXTRACT to get the record from the tree (this also converts 
444 } the record to the output format). 
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STATUS = SORSSTREE Berracrt 
CIF PRESENT (STZE) THEN 


If there are no more records, the user isn't supposed to call us again 


if, STATUS EQL SS$_ENDOFFILE ! Check for the end 
BEGIN 
Note that further calls to RETURN_REC will also return SS$_ENDOFFILE 
CTXCCOM_FLO_ABORT] = FALSE; ! Can call other routines 
RETURN__(.STATUS); 
END 

ELSE 
RETURN__(SS$_NORMAL) ; 

END; 


OFFC 00000 ENTRY SOnseg Tua REC. Save R2,R3,R4,R5,R6,R7,R8.— ; 
7E D4 00002 CLRL 3s CTX__ 
6D 0088 CF of 0004 MOVAL 11$, (FP) 
03 6C 00009 CMPB. ss APS, #3 
06 1F 0000C BLSSU_1$ 
53 0c AC 09 000 MOVL CONTEXT, q 
07 12 0001 BNEQ $ 
53 00000000° Ef 9E 00014 1$ MOVAB SOR_CONTEXT, P__ 
6F 3 pO 0001B 2$: MOVL P__> CTX__ 
6 00 E oor BBSS. #0, (P__J> 4$ 
63 e. 09 BICL3 #1, (PT7), CTX 
F 13 00 6 BEQL 
5 AB 4 €2 000 BBSS 4, 93 CTX) 3$ 
0130 «cB 1 00 000 MOVL = #1, CTxS 
5c AB ; E 00 BBS ae, 92(CTX), 5$ 
00 BE A 00037 3$ BICB2 # TX__ 
001¢802c BF b0 0 ; 4$ MOVL #18678207~RO 
gf 9 6 45 5$ TSTB (AP) 
1 4 BEQL 6$ 
04 AC D be TSTL 4 (AP) 
. % 4A BNEG 46 7$ 
00 ef 1 8A 0004C 68: BICB2 #1 acTx__ 
001C80E4  8F i 5 MOVL #18680047~RO 
02 6¢ 1 8 7$: CMPB ss CAP), «#2 
1F 8 BLSSU 
08 aC pp PUSHL 1E 
0 BRB 
E D4 gs: CLRL = = (SP) 
04 aC DD $: PUSHL DESC 
000000006 00 16 00067 JSB SORSSTREE_EXTRACT 
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; 2110 
; 2115 


2120 


2121 


2131 


2130 


$3 


ee ee ee Se Se ee ee ee 


32:1 


Pi legeae V4.0-74 
SRC JSORINTERF 


32 


USbat 


14 
VenSep=19b6 19:40:44 


w 
YL 
< 
— 
[4 
— 
7S 
-—O 
Ai 
"> 


a 
3S ~ -~Oo az 
- «x <a Cc aa 
Nu ee - - nox 
== wow wees £00 ~ 1 

ee tet ad: ‘a 
= Ne FOX OO 2 
am Gv Vor cee oO 
"na eo @ w~ ~m 1 ~vU 
oa ~~ @02A0 1 a 
“<IMAwoO «+ “ow ><a =< s 
@OrOxe- o— oc CO eoww te - OY 
RO RAR BBM MOTYVRH TB 
™N jm = Cucy a . or ” 
+jwIGO@ OO fFisitstriroeii 
20. WOOLF VU >-0O>2>0N 4 > II 
OF 2 ws Ow BOODDDOdcw 
VvOOOc @@tia -FFtaAQaatvre 
A es) 
o _— 
= - 


OOOCOOCOOOCOCoOoOOOoOoOoOOooOooo 
COOOOCOCOCOCOOCOCOCOOOOOCOoOoOooO 
Soooooooooooooooooo 
O-n-wae aw et eOwooouwooooaw,y 
Se a ee ee 
o 
moo o- -—Om voor wuUM 
OwnOon-O Orv << con aco 
oO o.wwv w 
m oou oO 
que 
o 
we Ow wdoO oo reree 
weoamD aan nn ~oO 
Oo Oo Ov 2 
~ mo ow 
@ ~» 
o “ 
o 
o 
o 
Oo 


SORSRO_CODE + OBC9 


171 bytes, Routine Base: 


; Routine Size: 


MINION NNN NINN NIN NONI ONION 


—————___—__——_} 


14 
voa-000 1E$0or198E Q0:24:14  YMGTL PLAsHRZ wet 742 Pa9e 28} 


ROUTINE VALUE: 
NONE (signals errors) 
! SIDE EFFECTS: 
NONE 
BEGIN 
EXTERNAL REGISTER 
CTX = COM_REG_CTX: REF CTX_BLOCK; 


14 ZIF NOT HOSTILE XTHEN 

} ROUTINE {neeapoee ! Finished 

1 DPB_PTR: REF VECTORC1,LONGI, ! Address of pointer to DDBs 
1 CLOSEERR, ' Error message 

1 DELUBF ' Delete user buffer 
1 ): CAL_CTXREG NOVALUE = 

i 144 

FUNCTIONAL DESCRIPTION: 

19 | Deallocate the storage associated with a List of DDBs. 

16 NOTE: The files are closed by this routine. 

16 FORMAL PARAMETERS: 

16 i DDB_PTR.ra.r Address of pointer to a List of DDBs 

16 ' CLOSEERR Hessage to signal on close error 

Mb DELUBF True to delete the user buffer for these DDBs 
, IMPLICIT INPUTS: 

, NONE 

f IMPLICIT OUTPUTS: 

7 i NONE 

7 ! 

7 ' 

7 ! 

8 ! 

8 ! 

8 nl 

8 ! 

8 ' 

8 ! 

8 t= 

9 

9 


LOCAL 
F $FAB_DECL 


DDB: REF BDB BLOCK, 
DDB_ADR:REF VECTORL1), 
STATUS; 


Initialize a FAB 
$FAB_INIT(FAB = FABLBASE_}); 
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Deallocate the user buffer if requested (and it is there) 


DDB = ,DDB_PTR(O); ! Pointer to first DDB 
IF DDBLBASE_) NEQ 0 AND .DELUBF 
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16-Sep-1984 00:24:14 AX-11 Bliss-32 V4.0-74 
12-888: 7 90:46 de ebat $2 sre SORINTERF 64251 
THEN !' Deallocate the user buffer 
DDB = pPOGCODS ERTS) NEQ 0 DO DORCDDG RAB+RABSI UBF} = 0; 
DB_PTR(O); ! fir 


( 
.D ! Pointer to st DDB 
$ DEALLOCATE (. DDBCDDB_RAB+RABSW_USZJ, DDBCDDB_RAB+RABSL_UBF J); 


For each DDB Linked into this List 

DDB_ADR = DDB_PTR(O]; 

WHICE (DDB = [DDB_ADRCOJ) NEQ 0 DO 
BEGIN 
Close the file 
Happ POtbS III NEQ 0 

CLOSE _FILE(FABCBASE_J, DDOBCBASE_J], .CLOSEERR); 

Free the file name string 
SORSSFREE_F ILE_NAME (DDBCDDB_NAME)) ; 
Free the DDB 
SORSSDEALLOCATE(DDB_K_SIZE, DDB_ADRCOJ, .ODBCDDB_NEXTI); 


! Free name string 


END; 
END; 
003¢ 00000 FREE_DDBS: a at ae aa ae 
5E BO AE 9E 00002 MOV <B0(5P) SP 
bE 00 2c at MovcS #0, (SPS, #0, #22, SRMS_PTR 
6E 5003 BF 8 $0 MOVW #20483, $RMS_PTR 
16 AE : 001 MOVB #2, $RMS_PTRT22 
1F AE 9 1 MOVB #2, SRMS~PTR+31 
5 06 BC D 18 MOVL DbB_PTR> DDB 
1E 1 1F BEQL 
1A Oc AC E 1 BLBC  ODELUBF, 3$ 
52 6 bg 3 1$ MOVL (DDB), DDB 
1 BEQL es 
38 «= A2 OG A CLRL (DDB) 
F6 11 D BRB 1 
52 4 BC 00 F 2$ MOVL @DDB_PTR, DDB 
8 Ad OF PUSHAB 2 (D6B) 
7E 4 Ad 3C MOVZWL 52(DDB), =-(SP) 
F4FS 02 F A CALLS #2, SOR$SDEALLOCATE 
04 aC D F 3$: MOVL  D0DB_PTR, DDB_AD 
63 D 43 4$: MOVL (DDB_ADR), DOB 
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SORSINTERFACE 16-50 Sep-1984 4:14 AX-11 Bliss-32 v4.0-7 Page 67 
904.000 aes ak oP le bg eS 9 28) 
2B 1 4 BEQL F 
0c 4 D 828 TSTL $5 cope) + 2222 
OD 1 4B BEQL «6s«5$ ; 
08 AC Dd 00040 PUSHL  CLOSEERR + 22246 
5 BD PUSHL DDB ; 
08 Ae F PUSHAB FAB ; 
FSIA CF 03 FB CALLS #3 CLOSE FILE : 
04 Ag OF A 5$: PUSHAB 4(6DB + 2228 
000000006 00 01 FB D CALLS #1 BORSSFREE _FILE_NAME ; 
: DD 00064 PUSHL (DOB) + 2232 
pp PUSHL bB_AD ADR ; 
7E 59 BF OA MOVZBL H's ; 
F4C3—sCF 3 FB C CALLS. # SORSSDEALLOCATE ; 
dd 11 000 } BRB ; 3217 
04 00073 6$: RET + 2236 


; Routine Size: 116 bytes, Routine Base: SORSRO_CODE + 0C74 


; 2187 2237 «1 &FI 
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16-Sep-1984 00:24:14 AX-11 Bliss-3 
14- . 382 99:46:40 SORT32. $re SORINTE 


ROUTINE AST_END_SORT 


Han REF yecTontt, 
): JSB_LINI_CTX 


lee 
3 FUNCTIONAL DESCRIPTION: 
This routine aborts a sort while another sort routine is active. 
} FORMAL PARAMETERS: 
NONE 
IMPLICIT INPUTS: 
NONE 
IMPLICIT OUTPUTS: 
NONE 
ROUTINE VALUE: 
Status code 
SIDE EFFECTS: 
NONE 
BEGIN 
EXTERNAL REGISTER 
CTX = COM_REG_CTX: REF CTX_BLOCK; 
at mee SOR_K_END_AST 
hn SOR$_SORT_ON 


ZELS 

BEGIN 

EXTERNAL ROUTINE 
LIBSAST_IN_PROG: ADDRESSING_MODE (GENERAL), ' At AST? 

A SUSSCLARST? ADDRESS ING_MODE (GENERAL) ; ! Clear AST 

STATUS; 

ROUTINE END_SORT_AST(CTXADR: REF VECTORC1)): NOVALUE = 
SYSSCLRAST(); 


Note that we should never return from this signal. 
L 1B$S1GNAL (SORS_END_SORT, 1, CTXADRLO)); 


AB BE BE BB BE III ILILAIIINI|ININ|IIINIA| YD a sk i i i kk tk tk tk at a 8 


14 
SORSINTERFACE de 1984 4:14 AX-11 Bliss-32 V4.0-7 Pa i 
v0e=000 1o-38b74982 99:9Gi02 — eGatboPbheSs38 hte er e821 9 95 
sEXTRN LIBSAST_IN_PROG 
~EXTRN SYSSCLRAST 
0000 00000 END_SORT_AST: 
«WORD gave nest! ng ; 2285 
000000006 00 00 FB 3 CALLS #0, SYSSCLRAST : 2287 
04 AC OD PUSHL CTXADR 3 91 
1 OO C PUSHL #1 : 
001C80E9 F DOD E PUSHL #1868009 3 
000000006 00 3 FB 00014 CALLS #3, LIBSSIGNAL : 
04 00018 RET : 2292 
; Routine Size: 28 bytes, Routine Base: SORSRO_CODE + OCE8 
3; 2244 93 
; 2245 94 IF NOT LIBSAST_IN_PROG() 
> 2246 95 THEN 
13 2247 96 4 BEGIN 
3: 2248 97 4 ! 
3; 2249 98 4 i we were not called from = Based 
; 2250 99 4 i Just signal an abort SS Tonh to the active sort/merge routine. 
3; 2251 00 4 i Note that we call LIB$S GNAL directly so that when this signal 
3 $26 01 4 i is cougne by END_SORT’s condition handler, the depth is zero. 
3 $27 306 ? Note that we should never return from this signal. 
: 2255 304 4 LIBSSIGNAL(SOR$_END_SORT, 1, CTXADRCO}); 
; 528 Sane END; 
: $26 $309 ! We were called from an AST routine. 
3 4 S308 Declare another AST routine so the current one can finish executing. 
: $5e P 316 ; éTaTuS = SDCLAST(ASTADR=END_SORT_AST, ASTPRM=CTXADR(0] 
: $66 11 ZIF TILE_ELAN %THEN | ELAN -CTXCCOM CTXADR FI); 
; ry 31§ IF NOT .STATUS THEN RETURN SORSSERROR(. STATUS); 
3 2265 $i¢ ! Return an informational status indicating eet. although the caller 
; $6 312 requested us to abort, we have not yet done so. 
; $568 317 RETURN SORS_END_SORT AND NOT STSSM_SEVERITY OR STSSK_INFO; 
3 $$? § 18 END 
3: 2270 319 
3 ore 3331 ZF I; 
; 4 21 END; 
-EXTRN SYSSDCLAST 
000000006 00 00 FB 00000 AST_END_SORT: 
gig 49 L 1BSAST_ IN_PROG : 2294 
11 2 E8 7 BLBS 3 
DD A PUSHL CTXADR ; 2304 
4 dD C PUSHL : 
001C80E9 F DD OOO0E PUSHL #1868009 3 
| 


vou-000 1esbe3He O:G6:1¢YABsHLLPLEHGHE Mtefe7H.. 


000000006 00 93 fe 16 18: ay tf  Maguece 
co $8 RB RODD Bua ctaap 
000000006 60 39 4 g ents #3 SYSSBCLAST 
F3D0 CF 01 FB . CALLS 31) Ueassernor 
50 OO1C80EB =s«aBF 0 6 ‘ 2$ exe #1868011, RO 


; Routine Size: 60 bytes, Routine Base: SORSRO_CODE + 0D04 
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1 -74 
-Sep-19 SORT32.SRCIJSORINTERF .B52; 1 

75 
79 
0 
$60 

r4 

2 

; 

r4 


$3 


GLOBAL ROUTINE SORSEND_SORT 
esi REF VECTORC1,LONG) ! Addr of context longword 
= 


a | 
co~No 


o 
7 


FUNCTIONAL DESCRIPTION: 


2.000000 
Wr 


Indicate the end of the sort, and free all storage used by the sort. 


84 

S2 FORMAL PARAMETERS: 

8? CONTEXT. ra.r Longword pointing to work area 
34 ALL parameters are optional. 

4! IMPLICIT INPUTS: 

38 NONE 

94 
236 IMPLICIT OUTPUTS: 

NONE 

2 


roror 


ROUTINE VALUE: 
Status code. 
SIDE EFFECTS: 
The following data structures are deallocated. 


Ww 
ooouwoo 
Wr —O0on 


So3s 


The Common context area. 
The DDBs 


WAWAW 
oo 
con 


3 


For each DDB, the file name string. 
The user buffer for the input DDBs. 
The user buffer for the output DDB. 


SOOWONAVES WN $9 OONOAU EWN OOONAYV EWN" OWOONOULEW 


Ww 
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The WFBs. 

For each WKB, the file name string. 
The replacement selection tree. 

The run description blocks. 

The work file buffers. 
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a 
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WAN AANA WN 
MONORD 


BEGIN 
F IRSTPARAMETER_ (CONTEXT); ! Required by PRESENT_ and NULL_ macros 


PSECT NODEFAULT = SORSSEND_PSECT_(1)(PIC, SHARE ,NOWRITE EXECUTE 
ADDRESSING. MODE (LONG_RELATIVE)); 

OWN END_O: VECTORCO) PSECT (SORSSEND PSECT_(1))? 

PSECT NODEFAULT = SORSSEND_PSECT_(33(PIC, SHARE .NOWRITE EXECUTE 
ADDRESSING MODE (LONG_RELATIVE)):; 

OWN END_1: VECTORLO] PSECT(SORSSEND_PSECT_(3))3 


CONTEXT_(CONTEXT, SSS$_NORMAL) ; 
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v0e~000 122868-1 382 99: FO i460 {SORT 2.SRC SORINTERF 692:1 a9 055 
Allow END_SORT to be called at any time. 
IF NOT .CTXCCOM_FLO_RETURN] THEN RETURN__(SOR$_SORT_ON); 


Call the clean-up routines 


FARO OONOUE WO 


BEGIN 
LOCAL 
P: REF VECTOR 12. 
9 Q: REF VECTORE13: 
2 P = END_O; 
Q = END“1; 
9 WHILE PTO3 LSSA QC0] DO 
9 BEGIN 
LOCAL RTN STATUS; 
9 RTN = .PCO) + PCOS; P = PCI): 
9 CAL CTXREG(.RTN); 


. Unlock everything that got locked into the wS 


BEGIN 
LOCAL 


P: REF BLOCK 
= .CTXCCOM_LOCKED); 


ROO MAA 
SOOO OOOOOON 


4 
4 
4 : 
408 P ¥ 
WHILE PLBASE - NEQ 0°DO 
P = .PCLCK_NEXT); 
END; 
- END; 
36 
36 } Deallocate the array of pointers to DDBs 
7 SORSSDEALLOCATE( XUPVAL * .CTXCCOM_NUM_FILES], CTXCCOM_INP_ARRAY)); 


' Deallocate all the DDBs 


IF NOT HOSTILE 
FREE_DDBS(CTXCCOM_INP_DDBJ, SOR$_SHR_CLOSEIN, TRUE); 
FREE-DDBS(CTXCCOM-OUT-DDBJ, SORS-SHR-CLOSEOUT, TRUE); 
, FREE_DDBS(CTXCCOM_SPC"DDBJ, SORS-SHR-CLOSEIN, FALSE); 
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: Deallocate space for the record header buffer (VFC area) 


SORSSDEALLOCATE(.CTX COM _MAXVEC), CTXECOM RHB_INP) 
SORSSDEALLOCATE (.CTXCCOM~MAXVFCJ. CTXCCOM~RHB~OUT)) : 
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16-Sep-1984 00:24:14  YAX=11 BLiss-32 v4.0-7 
iffepntgge 9:90:04 EOatSe°sReSsoninteRe 882: 


} Deallocate the ‘pass files’’ information 
SORSSDEALLOCATE (ZUPVAL+8*ZUPVAL, CTXCCOM_PASS_FILES]); 


Deallocate the context area 


CO] AND NOT %B'1'; ! No longer active 
Kel 0}, = CTA pd K SIZE*ZUPVAL, CTX__(0]); 


Dump the amount of unfreed space if compiled with debugging 
LIF _XSWITCHES (DEBUG) 
XZTHEN 


peer 
EXTERNAL ROUTINE LIBSSTAT_VM: ADDRESSING_MODE (GENERAL); 
aise ERNAL ROUTINE SORSSOUTPUT; 


DES C_(A) = UPLIT (ECHARCOUNT (A) UPLIT BYTE(A)) 2; 
LOCAL gers FREES FREED; 

CTSSSTAT. VM (ZR REF CI) 

LIBSSTAT~ mR: ES); 

LIBSSTAT. vm ( REF ( ) FREESS 


RSSOUTPUT C_¢ 
! U'untreed bytes = !UL Aes 'UL bytes (!UL GETs, !'UL FREEs) 
oad Pt 1s la _BPERPAGE, . UNFREED MOD COM_K POPERPAGE, 
END; oe 
ZF i 
RETURN SSS$_NORMAL; 
END; 


-PSECT SORSRO_CODE__.__ sss 3,NOWRT, 
00000 END.1: .BLKB 0 

-PSECT SORSRO_CODE__.- sss 1,NOWRT, SHR, PIC, 
00000 END_0: .BLKB 0 


SHR, PIC, 


-PSECT SORSRO_CODE,NOWRT, SHR, PIC,2 


087C 000 .ENTRY SORSEND_SORT Save Pe. R3,R4,R5,R6,R11 : 2323 

56 F462 cr i 3 HOVAB eee _— 
“TEP : 

- ag é¢ 3 Terps ( $B) wn : 2377 
6 1 1 BEQL =s«d1$ ; 
53 04 aC : move ONTEXT, P__ : 
53 00000000" EF 9E $01 1$ MOVAB SOR_CONTEXT, P__ : 
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; Routine Size: 236 bytes, Routine Base: SORSRO_CODE + 0040 


N 14 
vou-000 1e$ep-1986 F8:0:42 — ESGarbaSnesonintenr 882: Page (085 vot 


; : re ! GLOBAL eaten SORSBEGIN_MERGE 

> 2605 are 1 KEY_BUFFER: REF VECTOR »WORD], ' Key description buffer 
3; 24 § 475 1 RL: REF VECTORL,WORDJ, ! Longest record Length 
3; 24 474 1 PTIONS: REF BLOCKCE ' Options 

3; 24 : 475 1 MERGE _ORDER REF VECTORC BYTE), ! Order of = merge 

3 24 428 1 USER_COMPARE, ' User comparison routine 
; 2450 477 1 USER_EQUAL, ! User equal-key routine 
3 2431 tf8 1 USER_ INPUT, ! User input routine 

3 24 ; 479 1 CONTEXT: REF VECTORC1,LONG) ! Addr of context longword 
: 24 480 1 d= 

fe: se if 

; 436 4 5 i FUNCTIONAL DESCRIPTION: 

by ( H 

3 : 3 met : } This routine initializes and does a merge. 

; 440 cB? | FORMAL PARAMETERS: 

3 264 489 1} MERGE_ORDER.rab Order of the merge 

3 244 490 1! KEY_BOFFER. raw Key buffer address 

> 2444 491 1! LRL.rwu.r Longest record Length 

3: 2445 492 1! OPTIONS.rlu.r Option bits 

3 2446 493 1! USER_COMPARE, User-written comparison routine 

> 2447 494 1! USER_INPUT User-written input routine 

3: 2448 2495 1! USER_EQUAL, User-written equal-key routine 

3 ct $ea9 : } CONTEXT. ra.r Longword pointing to work area 

: 431 498 ALL parameters are optional. 

: re 500 1 | IMPLICIT INPUTS: 

3 2454 501 1! 

ee oe en 

> 2457 504 1 | IMPLICIT OUTPUTS: 

; 2458 505 1! 

ops Et) em 

; 461 208 1 1 ROUTINE VALUE: 

; ass 310 Status code. 

; 465 318 | SIDE EFFECTS: 

: rr] 514 1 The work files are defined (not necessarily created), the working set 
3: 2468 515 1! is extended and the virtual memory is extended. 

te Bb 

; 471 318 BEGIN 

: 473 3 9 ! Process the parameters 

> 2675 é : BEGIN_SORT_MERGE (MERGE) 

: t} 3 4 

> 2478 525 ! Process the USER_INPUT parameter 

3; 2479 526 : 
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SORSINTERF ACE 16-50 -1984 00:24:14 AX-11 Bliss-32 V4.0-74 P 7 
v0e~000 1 300-1 38s 99: FO i46 SORT 32. SRC SORINTERF 69251 29e 345 
IF NOT NULL_(USER_INPUT) 
CTXCCOM_MRG_INPUT] = .USER_INPUT; 


If no files were passed, the user must specify an input routine 
iF .CTXCCOM_NUM_FILES] EQL 0 AND .CTXCCOM_MRG_INPUT] EQL 0 
RETURN__(SOR$_MISS_PARAM) ; 


SPELLS 
Wr 


! The merge will use TREE_EXTRACT to get records back from the streams. 
! Set the number of runs to a non-zero value so that TREE_EXTRACT realizes 
} it should not use the replacement selection tree. 


CTXCCOM_RUNS] = .CTXCCOM_MRG_ORDERI; 


Link all the files to the VFC area 


DDB: REF DDB_BLOCK; 
DDB = .CTXCCOM_INP_DDB); ! Point to first DDB 
anes -CTXCCOM_NUM_FILESJ-1 TO 0 DO 


DDBCDDB_RAB+RABSL_RHB) = .CTXCCOM_RHB_INPI; | 
DDB = .BDBCDDB_NERTI; 


END; 
c a = .CTXCCOM_OUT_DDBJ) NEQ 0 
END DDBCDDB_RAB+RABSL_RHB) = .CTXCCOM_RHB_OUTI; 


all another routine to merge the sources into the output file. 
f the record interface is used on output, this routine does nothing. 


NOT HOSTILE 
MRG_OUTPUT(); 
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RETURN__(SS$_NORMAL) ; 
END; 
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SORSINTERFACE 16-5¢ =1984 00:24:14 AX-11_ Bliss-32 V4.0-74 P 
y04~000 eae i Pe ge age 89 
62 6 8F 3C 0019 MOVZWL #1536, (R2) ; 
8098 ‘ is PUSHAB 2g6(Ctx) : | 
000000006 ’ F 1A CALLS 3, LIBSGET_VM : 
D 1Ae MOVL R STATUS : 
D E8 0018 BLBS STATUS, 33$ : 
2D a : 
001¢11B4 8F DD 168 SHL 71839560 : 
Ab 03 FB 1BE CALLS #3, SORSSERROR : 
012¢ CB 0128 CB 62 C1 001C 338: ADDL3 (RO), 2 6¢¢TX) 300(CTX) : 
04 AE 01 ¢ (B 91 : CB C3 001C9 34$:  SUBL 33 (€TX), 300(€TK), COLL_DESC ; 
MG AE BP BRiBh | iMhng_Egtetpgge COtE-peste : 
000000006 9 ; FB 001D CALLS #1, COLLSINIT : 
DO OO1E MOVL RO STATUS : 
a E9 OO1E BLBC STATUS, 39$ : 
noone STI Futuna S9EEEON 358 : 
000000006 00 01 FB O1FO CALLS #1, SORSSDECM ; 
iF 11 OO1F BRB 37§ ; 
0c 0c BC 01 4 O1F9 35$: BC #1, @OPTIONS, 36$ ; 
04 AE SF OOTFE PUSHAB COLL_DE : 
000000006 00 01 FB 00201 CALLS #1, SORSSEBCDIC : 
0€ 11 00208 BRB 37$ ; 
011C CB DD 0020A 36$:  PUSHL 284(CTX) : 
0 AE OF 00205 PUSHAB COLL DE : 
000000006 90 02 FB 00211 CALLS #2, COLLSBASE ; 
29 DO 00 18 37$:  MOVL RO. ST us : 
42 53 £9 00218 BLBC STATUS, 39$ : 
6E 01 80 O021E MOVW #1, PAD_CHAR : 
02. AE 0101 cB 90 00221 MOVB  257(CTXY, PAD_CHAR+2 F 
E DD 00227 PUSHL SP : 
08 AE 9F 00209 PUSHAB COLL DESC ; 
000000006 99 Q FB 00 ¢ CALLS #2, COLLSPAD : 
DO 00 MOVL RO. STATUS ; 
27 53 €£ 0 BLBC STATUS, 39$ : 
12 0080 cB £9 9 BLBC 128(CTK), 38$ : 
1 BD 0 PUSHL #1 : 
08 AE 9F 0024 PUSHAB COLL_DESC ; 
000000006 99 Q F 4 CALLS #2, COLLSTIE_BREAK ; 
D 4A MOVL R STATUS : 
10 5 4D BLBC STATUS, 39S ; 
04 AE OF 9 38$:  PUSHAB COLL_DESC : 
8 AE OF PUSHAB COLL ~DESC : 
000000006 Q F 4 CALLS #2, COLLSRESULT : 
D MOVL R STATUS : 
0 5 39$: BLBS STATUS, 40$ : 
0091 BRW 47$ : 
0128 CB s me 40$:  ADDL2 COLL_DESC, 296(CTX) ; 
68 AB 8 AE p ¢ MOVL ¢ LL-DESC4+4, 104(CTX) : 
A 41$: STB (CTX) ; 
‘ 1 74 BNEQ 43$ ; 
0080 cB § 76 BISB2 #2, 128(CTX) : 
1 58 AB 7B CMPB. so BBC CTX), #1 : 
oc 1 7F EQ. 42 : 
OC BE 8A 00281 BICB2 #1, actx : 
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50 001C806C BF B0 5 MOVL #1867884, RO : ; 
0084 ; 83 D 42$: [sty 132(CTX) : ; 
0c BA ; BI(B2 #1, actx : ; 
36 001¢8076 BF i 37 MOVL 116678927-RO 3 ; 
54 000000006 99 E OF 43%: MOVAB SORSSKEY SUB, DOKEY_RTN : : 
ps ag CLRL DOKEY_PRA : ; 
SU ie | gee, : : 
14 A D3 6 AD TSTL 20(AP) : : 
18 «7 80 BEQL 44$ : ; 
6B 146 AC p 0 B MOVL § USER_COMPARE, (CTX) : : 
gC Bs TSTB ~—s_: CAP?) : ; 
. 4 0 B BEQL 46$ : : 
04 AC D BA TSTL  4(AP) : ; 
13 00280 BEQL 46$ : ; 
001¢8134 §F DD 0 BF PUSHL #1868084 : 
6 1 FB 002C5 CALLS #1, SORSSERROR : 
1C 11 002¢8 BRB 46$ ; 
6¢ 3 O2CA 44$:  TSTB (AP) : 
0B 13 O02CC BEQL 45$ ; 
04 AC 05 O02CE TSTL  4¢(AP) : 
06 13 00201 BEQL 45$ ; 
52 04 AC DO 00 D3 MOVL § KEY_BUFFER, DOKEY_PRM : 
0D 11 00207 BRB 46$~ ; 
OOFC cB 93 00 D9 45$: tsi 25¢(CTX) : 
54 000000006 09 9E O02DF MOVAB SORSS$SPEC_KEY_SUB, DOKEY_RTN : 
2 0D 00 ES 46$:  PUSHL DOKEY V_PR m ; 
54 DD O02E PUSHL D KEY-RTN F 
000000006 99 02 FB OO2EA CALLS , SORSSOPEN ; 
D F MOVL TATUS ; 
5 5 O2F1 
08 5 i O24 BLBS STATUS, 48$ ; 
OC BE 04 A OO2F7 47$:  ®BICB2 #1, actx ; 
50 3 D0 0 rB MOVL STATUS, RO ; 
0094 CB F O2FF 48$:  PUSHAB 148(CTX) : 
00A1 C6 63 PR Sbage CALS Of SORSSDEALLOCATE : 
$5 0082 cB 9A 6 BA MOVZBL 185c¢h RO : 
19 13 0030F EQL ; 
50 0D 0031 PUSHL ng. : 
72 a6 gi FB 1 CALLS #1, SORSSALLOCATE ; 
008c «CB 0 p 031 MOVL RO, 140(CTX) ; 
E 0082 CB 9A 0031C MOVZBL 130(CTX), -(SP) : 
A F CALLS #1, SORS$ALLOCATE ; 
72 Ab 1 1 1 $$ 
ened ae Roos: Pow BB tctan <b : 
2A 3 EQL 538 $ : 
50 59 AB 9A MOV ZBL (TM), RO ; 
7E 50 78 ASHL ue. -(SP ; 
72 Ab F CALLS 4 Etahatbcae ; 
00A4 0 D ¢ VL 164(CT : 
009c = CB p 4i MOVL Yegtetxy ; 
59 AB 9A 00346 MOVZBL 89(CTX), ° ; 
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SORT32.SRCJSORINTERF .B52;1 (24) 


NONE 


BEGIN e). 
FIRSTPARAMETER_(SPC_DESC); ! Required by PRESENT_ and NULL_ macros 


LOCAL 
STATUS; 


CONTEXT_ (CONTEXT); 

IF .CTXCCOM_FLO_NOINIT] THEN RETURN__(SORS_SORT_ON); 
Check for spec file name present 

IF NOT NULL_(SPC_DESC) 

THEN 


Roe SORNOURUN ODO 


; 7 73 1 ZIF NOT HOSTILE %THEN . 
: 5 a : GLOBAL aul ine SORSSPEC_FILE ; 
: 76 «1 SPC_DESC: REF BLOCKC,BYTE), ' Filename d ipt : 
: $331 | TXT~DESC: REF BLOCKE eye) i Text descriptor 
; é £8 1 CONTEXT: REF VECTORC1,LONG), i Addr of context lLongword : 
: af? : COLL BLOCK: REF BLOCKC,BYTEJ ! Collate sequence description : 
; 535 a } had : 
; ; i | | FUNCTIONAL DESCRIPTION: : 
4 i 7 
: 540 386 } This routine processes the specification file. : 
; 3t3 44 ! FORMAL PARAMETERS: : 
; 278 589 1! SPC_DESC.ra.d Specification file descriptor ; 
3; 2544 590 1! TXT_DESC.ra.d Specificatoin text descriptor s 
3 2545 591 1! CONTEXT. ra.r Longuord pointing to work area 3 
: 243 235 : } COLL_BLOCK.ra.r Collating sequence description ; 
3 248 394 ALL parameters are optional. ; 
: 2550 596 1 | IMPLICIT INPUTS: : 
4g | pete 2 
; 2g 599 1 | ; 
; 54 600 1 ! IMPLICIT OUTPUTS: é 
; 2555 601 1! F 
(oo ia te pe , 
38 604 { ROUTINE VALUE: ; 
; 3 8 ' Status code. ; 
: 08 1 | SIDE EFFECTS: : 
3 09 1! 5 
3 1; 3 
3 1: 5 
3 13 : 


ROPSPIPININSNIMONINIPUNDINININIPINIPINPININPINPIPINIPP NON Nonongny 
Sy ab ab ab Ah Ab dh ah dh db db bbb db ab db db db 4b 4b 4b 4b 4b 4b dh dh Ah Ab Ab Ah Ah Ah ah al 
PAA AAAAAAAA AAA AAAAAAAAA AO 
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DDB: REF DDB_BLOCK, 
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-Sep-1 SORTS2.SRCJSORIN (24) 
$ ¢ ° 0 P: REF DDB_BLOCK; 
; ? } Allocate DDB and Link into List (at the end of the List) 
3 58 6 DDB = $ ASSALLOCATE (008. K_SIZE); 
3 635 P = CTX ppon 
; 2590 6 § WHILE . bpB. SNERT néo g DO P = .PLDDB_NEXTI; 
3 4! ° PCDDB_ NEXT DDBLBASE_J; ! Link DDB into List 
3 ry 639 } Copy the input file name string to the DDB 
; 95 64) SORSSCOPY_FILE_NAME(SPC_DESCCBASE_J, DDBLDDB_NAME]); 
5 | ots END; 
: 259 64 
; 2598 644 
; 2599 645 BEGIN 
; 2600 64 BIND 
; 2601 64 TXT = cTxCCOn. SPC Gag 4 Py oe BYTE]; 
; 260 648 TXTCDOSC$B_CLASSJ = pst SK_C $_D; 
; 260 649 4 IF NOT NUCL_(TXT_DESC) 
3; 2604 650 3 THEN 
; 2605 651 4 BEGIN 
3 ey: O36 4 ! 
3 et Se? : Append the text to the end of our dynamic string. 
3; 2609 655 4 STATUS = STRSAPPEND(TXTCBASE_J, TXT_DESCCBASE_} 
: oiY $28 3 fos STATUS THEN RETURN_ _TSORSSERROR (SORS_ sir’ SYSERROR, 0, .STATUS)); 
3 oi¢ sth END; 
3: 261 659 
3; 2614 660 
3; 2615 661 BEGIN 
: 2616 O66 4 IF NOT NULL_(COLL_BLOCK) 
3; 2617 6635 3 THEN 
; 2618 664 4 BEGIN 
3 sol? 665 4 ! 
3 631 5ce8 2 ; Save the pad character and pointer to the 256-byte table 
3 $6 § 668 4 i Note that it is very tacky and inconsistent to NOT actually make 
3; 26 669 4 ia 2 sere this table. However, this interface is only known to 
3 36 ¢ tht : i VA OL, and the table they pass hangs around. 
: 2626 672 4 MACRO 
3 os? 673 4 HAS_(0,P,S,E) = (.COLL_BLOCKCCOLL_W_LENGTH] GEQU 0+S/ZBPUNIT) %; 
> 2628 674 4 IF HAS_TCOLL.B_PAD) THEN CTXCCOM_PAD] “= .COLL_BLOCKCCOLL_B_PADJ; 
; 6¢9 675 4 IF HAS-(COLL-A_PTAB) THEN CTXCCOM~PTAB] = .COLL~BLOCKECOLL—A-PTABI; 
3: 26 676 3 END; 
3; 2631 67 END; 
; 26 ¢ 67 
3; 26 67 
3 26 680 RETURN__(SS$_NORMAL) ; 
3 2635 681 END; 
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y042000 127808- 1382 90:96 de SORT32.SRCJSORINTERF .B32;1 se 38 
083¢ .ENTRY SORSSPEC_FILE, Save R2,R3,R4,R5,R11 ; 
7E 064 ELRL Tx. : 
60 00D5 CF DF MOVAL 13$77(FP) : 
6¢ CMPB. «CAPS, #3 : 
6 iF C BLSSU1$ : 
53 0c aC 09 MOVL SONTEXT, ee : 
0 1 BNE $ : 
53 00000000" EF 9 14 1$: MOVAB SOR_CONTEXT, P__ : 
6 3D 1B 2$: MOVL P__> CTX__ : 
6 é + FS O002 SE Pa ea 
03 99 ee = ss Mae : 
EEED BSBW INI_CTX : 
09 3 AB 4 € 90 3$ BBSS #4, (CTX) 4$ : 
0130 «cB 1 DO 000 MOVL #1. 304(CTXS : 
0c 5c AB F 00 BLBC 92¢CTX), 6$ : 
00 BE 01 A 90 9 4$ BICB2 #1, acTX__ : 
C i. MOVL #186 aR $ 
50 001¢802C¢ 0 9030 5$ HOV 18678207-RO 
shee fe gn : 
04 AC D 90049 TSTL 4 (AP) : 
: 13 0004C¢ BEQL 69S. ; 
7E 59 8F 9A 0004 MOVZBL #89, -(SP) : 
EF20 CF 01 FB 9005 CALLS #1, SORSSALLOCATE : 
51 OOAC CB 9E 0005 MOVAB 172(R11), P : 
61 05 0005c 7$ TSTL = (P) : 
: ef 9g $00) RE : 
F711 9006 BRB 7$° ; 
61 50 DO 00065 8s MOVL DDB, (P) ; 
04 AO OF 00068 PUSHAB 4(DbB) ; 
04 AC 0D 00068 PUSHL  $PC_DESC ; 
000000006 00 02 FB 0006 CALLS #2, SORSSCOPY_FILE_NAME ; 
50 O0OF4 CB 3 9007 9$ MOVAB 244(R11), RO : 
03 «AO 02 90 O007A MOVB #2, 3(ROS : 
- ot oooat cre, {ih fe 
08 AC 05 00083 TSTL 8(AP) : 
23 13 00086 BEQL 10$ ; 
08 AC DD 00088 PUSHL TXT_DESC ; 
50 DD 00088 PUSHL : 
000000006 00 08 FB 008D CALLS #2, STRSAPPEND : 
14 ; 094 BLBS. STATUS, 10$ ; 
ne 85 Bites UGE Hangs : 
E D4 00090 CLRL. =(SP) ; 
001¢11B4 af DD 0009F PUSHL #1839540 : 
EESB CCF 3 FB OAS CALLS #3, SORSSERROR ; 
04 6¢ $1 OAs 108: CHP (ap), ry : 
10 ac p G TSTL  16(AP) : 
1A B BEQL si : 
50 10 aC dd 0008 MOVL  COLL_BLOCK, RO : 
04 : B1 CMPW = s«(RO) > #4 : 
6 1F O000BC BLSSU 171 : 


SS 


; Routine Size: 248 bytes, Routine Base: SORSRO_CODE + 1202 


; 2636 2682 1 SFI 


SORSINTERFACE -1 4:14 AX-11_ Bliss-32 V4.0 
yon.00" | b-fep-1944 99: 19; 244 SORT32. tre SORINTERF . 5 2:1 v0 
0101 03 A B MOVB 3(R0), 57(CTX) : 
68 2 e ch 118:  CMPW (RO) “i : 
011¢ «cB 06 Ad DO 00089 gd iho 284TH) ; 
§ BE A OOOCE 128: BI CB #1 : 
¢ 0 8A 0000 BICB *18,° erx) 
$8 0130 CB te 07 MOVL 304(CTX), RO : 
00 DD 138 .WORD sexe nothing : 
28 8 aC D D MOVL (AP), Re : 
a: 8 p E MOVL 4(RO).R ; 
FC AO 9F OO0E PUSHAB CTX__ : 
gi DD 0 EA PUSHL #1 3 
E pp EC PUSHL SP ; 
7E 04 aC D OO0E MOV 4(AP), =(SP) 3 
—ED25 CF 03 FB OOOF CALLS #3, COND_HAND : 
04 000F RET 3 
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SORSINTERFACE 18-$e -1984 00:24:14 AX-11 Bliss-32 V4.0-74 P 7 S 
042000 1 ~30 71387 90: F6id2 SORT32.SRCJSORINTERF .852;1 age 8) v0 
: ? ! GLOBAL ROUTINE SORSSTAT : 
: 2640 685 1 CODE: REF VECTOR(1,LONG), ! Addr of code : 
3: 2641 6 $ 1 RESULT: REF VECTORL1,LONGJ, ! Addr to store result ; 
; ots : CONTERT REF VECTORL1,LONG ! Addr of context longword ; 
ee Be ie 
; 646 691 1 | FUNCTIONAL DESCRIPTION: z 
3 8 638 : This routine returns a statistic about the sort/merge. : 
; 630 695 | FORMAL PARAMETERS: ; 
; O26 $99 1 CODE.tr.r Code for requested statistic 
; 265 028 1! RESULT. Lw.r Result area 
: $28 44 : : CONTEXT. ra.r Longword pointing to work area 
; $28 Ay : ; ALL parameters except CODE and RESULT are optional. 
; 638 , § { IMPLICIT INPUTS: 
; 660 205 1 | NONE 
; 66¢ FO 1 + IMPLICIT OUTPUTS: 
; 266 708 1! 
: Sees HO 1 | ay 
; 666 ah i ROUTINE VALUE: 
3 ree ag ; ; Status code. 
; 670 r3 i SIDE EFFECTS: 
: 267 We yi NONE 
3; 267 718 1! 
ere +30 3 BEGIN 
; or 731 F IRSTPARAMETER_ (CODE); ! Required by PRESENT_ and NULL_ macros 
; 2678 158 UNDE CLARE 
: tas f : ZQUOTE COM_FLO_ABORT; ! Don't mess with this bit! 
; 681 i § CONTEXT_(CONTEXT, SORS_SORT_ON); 
; oss i 3 IF NULL_(RESULT) OR NULL_(CODE) THEN RETURN SORS_MISS_PARAM; 
> 2685 730 RESULTCO) = 
HY ty, 731 (BIND 
: 268 7 § INP = STE CON Ji 008) REF DDB BLOCK, 
3; 2688 7 OUT = CTX f OUT DDBJ: REF DDB BLOCK; 
; vets ¢ case -CODECOJ-FROM 0 TO STAT_K_MAX_STAT OF 
; 2691 7 STAT_K_IDENT): UPLIT(ZASCIC IDENT); ! Address of ASCIC string for version number 
3 O36 7 star Eee beined’ .CTXCCOM_INP_RECNUM); ' Records Input 
3; 269 7 3 STAT_K_ REC SOR): ' Records Sorted 
3 2694 7 -CTROCOM_INP_RECNUM] - .CTXCCOM_OMI_RECNUM); 


m1 
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iveeitt) 16-$ep-1964 Gite Lemar boPbhessdentegr S251 oe 388 
; 2695 74 STAT_K_REC_OUT): -CTXCCOM_OUT_RECNUM]; ' Records Output 
; 26 74 STAT_K_LRL_INPJ: «CTXCCOM-LRLI; ' LRL for Input 
> 269 74 STAT-K-LRL_INTJ: ~CTXECOMALRL ANT): i Internal LRL 
: 269 74 STATIKALRL QuT : ~CTXECOMALRL i LRL for Output 
: 5 744 STAT-K-NODESJ: CTX COMTSTAT. Koes): i Nodes in sort tree 
; 745 STAT_K_INI_RUNS): i al dispersion runs 
: 5701 14g (TF -CTRECOM, STAT_RUNS) N00 
: 27 ¢ 74 THEN .CTXCCOM_STAT_ RUNS] ELSE .CTXCCOM_RUNS)); 
3: 27 re STAT_K_MRG_ORDERT: at XCCOM_STAT RERCEIS '” Maximum merge oo 
: 27 74 STAT-K-MRG_PASSESJ: XCCOM~STAT <PASSES): i Number of merge passes 
; 2705 750 STAT_K_WRK_ALQ): sons WRK_ mittee ! Work file al Location 
; 2? 751 STAT K_MBC" INP): ! MBC for Input 
: 37 7 é (TF~. INP EQ, "0 THEN 0 ELSE .INPCDDB_RAB+RABSB_MBC)); 
: 2708 75 Cstat K_MBC_OUT ! MBC for Output 
+ 2709 754 (TF~.OuT EQ. 0 THEN 0 ELSE .OUTCDDB_RAB+RABSB_MBC)); 
: 2710 755 cstal K _MBF_INP ! MBF for Input 
: 2711 136 -INP EQ, 0 THEN 0 ELSE .INPCDDB_RAB+RABSB_MBF J); 
: at 75 tstal k _MBF OUT ! MBF for Output 
: 271 758 “OUT EQL. THEN 0 ELSE .OUTCDDB_RAB+RABSB_MBF J) ; 
: 3714 759 CINRANGE: OUTRANGE 
: a 760 ETURN SORS_ NY: 
: n$ 76¢ 3 : 
: 2718 76 RETURN SS$_NORMAL; 
: 2719 764 1 END; 
O12FA -BLKB 2 
39 35 30 2D 33 30 56 O7 O12FC P.AAB: <ASCII <7>\Vv03-059\ F 
0808 00000 .ENTRY SORSSTAT, Save R3,R11 : 2683 
7E 04 00002 ELRL X__ : 2720 
6D 0106 CF DE 00004 MOVAL 29$7~(FP) : 
03 6C 91 00009 CMPB_ ss (APS, #3 : 2726 
06 1F 0000C BLSSU ; 
53 0c aC 09 900g MOVL CONTEXT, P__ : 
07 12 0001 BNEQ $ : 
53 00000000" EF 9E 00014 1$: MOVAB SOR ~CONTEXT P__ ; 
58 6 1 CB 0001B 2$: BICL3 #1,~(P__), CTX : 
8 12 OO01F BNEQ : 
50 001¢802C 8F Bo 1 MOVL #1867820, RO : 
0130 ¢ 01 D0 3$ MOVL #1, 304(CTX) : 
6 6C Bf 0 E CMPB sé AP), #2 : 2728 
OE iF 0 BLSSU 4$ ; 
08 AC OD 3 TSTL 8(AP) : 
09 1 BEQL 46s 4$ : 
6¢ 9 TSTB  ~—- CAP) : 
1 A BEQL 4 4$ : 
04 aC p 03¢ TSTL 4(AP) : 
0 F BNEG 5$ : 
50 001C80E4 BF i 4} 4$: ROVL #1868004, RO : 
53 009c CB OSE rt 5$: MOVAB 156(R11), R3 : 2732 
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SRS INTERFACE 


001¢8122 


FF72 

7c 
00BC 
00c0 
0084 
0088 
008A 
0080 
0084 

vA 
9088 
0086 


4B 


SOCCOCOOOOOOOCO 
Sosecceseceoss 
Bor rOwmereooue> 


Oo 


ooo 
Coocoo 
QOow 


OI Oonvow 4 


SSSSssssssssssssssssss 


SOoooo 
COOoooo 
WVOeOooo 


S 


Ssss 


mmo 


ooo 
SSSSRmmm 


30 2.09 "9 9 FW OO OS OS St OS 9 OO | OOD 
WHO — F WO $0 "0D 9 @ FB SOM O29 F929 | OW" OS MEO 


SOOO S -OOSNMOWO 
O72 ALON "UWF OOOW 


NSYWVIOE PS NVNVOOU 


esses es eeeseeseeesese es 6 6 
eeeeeepeeeeegeee 


APAAPRAPAAAAARARAGAES + 


066, RO 
(CTX), R11 


$ 
4 
$ 
8 
$ 
g teres, R11 
"Stam R11 
6(CTX), R11 
Bccrn, R11 
stctE?, R11 
OCCTX), RO 
$ 
2 
$ 
& 
$ 


», R11 
», RII 
R11), R11 


5 

3 

3 

? 

8 

8 

0 

(CTX), R11 
(CTX), R11 
q(cta), R11 
3 

R 

3 

R 

$ 

8 

R3), R11 

} 
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SORTS2.SRCIJSORINTERF . 4 231 


(CTX), 124(CTX), 
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eee 


58 1 if ore 258 
4 | F 
B OD FE 26$: 
4 1 1 
oo BB SBE ae 
8% 34 ion oo 
B38 
00 10E 29%: 
28 06 AC D 11 
. -£f 114 
FC A F 118 
9! DD 00118 
E bp 110 
7E 04 Ag D Bias 
EBF2 =F 03 FB \$3 
04 001 
; Routine Size: 297 bytes, Routine Base: SORSRO_CODE + 1304 
; 2720 765 
3 443 766 END 
3; 2722 767 d ELUDOM 
; PSECT SUMMARY 
i Name Bytes Attributes 
; SORSRW_PICDATA 4 NOVEC, WRT, RD ,NOEXE,NOSHR, 
; SORSRO_CODE 5165 NOVEC,NOWRT, RD, X H 
3 NOVEC ,NOWRT ,NORD *NOEXE, *NOSHR, 
a OOD CO 1 NOV vEC.N NOWRT, RD, EXE, SHR, 
: SONONE RE 3 NOVEC,NOWRT, RD. EXE, SHR, 
: Library Statistics 
Ree ie au ee oker ae se Symbols -------- 
3 File Total Loaded Percent 
: ~$355$0uAg: SYSLIBISTARLET.L32;1 9776 97 0 
3: ~$255$DUA28:C(SORT32.SRCISORLIB.L32;1 409 192 46 
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), R11 


REURBOLS OU BBWwvewnN- Suet 


=(SP) 
6ND_HAND 
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CON, PIC,ALIGN(2) 
CON, PIC,ALIGN(2) 
ABS, CON,NOPIC,ALIGN(Q) 
CON, Pisa ent a? 
CON, PIC,ALIGN(2) 
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Bliss-32 V4.0 
SORT32.SRC SORINTERF . ys 2;1 


3 
ts 


woou 
SFA 


RoPonory 


16 
SORS INTERFACE 1-Sep=1986 00:26:16  YAX=11_BLiss=32 V4. Page 91 
vo4=000 1e=89p-1984 $3:10:60 — ESoRTS2°SRESSORINTERF -892; 1 °° (25), 


COMMAND QUALIFIERS | 
PL ISS/CHECK SCP TELD , INET IAL OPT IATZE) /HOTRACE/L ISH1 159s SORINTER? /08)908 JS: SOR INTERF MSRC$: SORINTERF /UPDATE=(ENH$: SORINTERF 


; Size: 5147 ae + 22 data bytes 
; Run Time: : 

; Elapsed Time: e 

; Lines/CPU Min: ie § 

; Lexemes/CPU-Min: 2835 

; pe | Used: 453 pages 
; Compilation Complete 
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